home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-08-27 | 12.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 15 de 20 42 25 | 20 26 31 30 30 2c 64 61 |..... B%| &100,da|
|00000010| 74 61 25 20 38 0d 00 14 | 14 70 72 6f 67 24 3d 22 |ta% 8...|.prog$="|
|00000020| 44 72 61 77 4c 6f 74 73 | 22 0d 00 1e 10 ee 85 20 |DrawLots|"...... |
|00000030| f6 3a f1 9e 2f 31 30 3a | e0 0d 00 28 33 6d 61 78 |.:../10:|...(3max|
|00000040| 73 68 61 70 65 25 3d 31 | 31 3a 6c 69 6e 65 25 3d |shape%=1|1:line%=|
|00000050| 30 3a 73 63 61 6c 65 3d | 31 38 30 3a 73 68 61 70 |0:scale=|180:shap|
|00000060| 65 25 3d 33 3a 6f 70 65 | 6e 25 3d a3 0d 00 32 3c |e%=3:ope|n%=...2<|
|00000070| de 20 74 79 70 65 24 28 | 6d 61 78 73 68 61 70 65 |. type$(|maxshape|
|00000080| 25 29 2c 76 61 72 24 28 | 6d 61 78 73 68 61 70 65 |%),var$(|maxshape|
|00000090| 25 2c 33 29 2c 74 69 74 | 6c 65 24 28 6d 61 78 73 |%,3),tit|le$(maxs|
|000000a0| 68 61 70 65 25 2c 33 29 | 0d 00 3c 71 74 79 70 65 |hape%,3)|..<qtype|
|000000b0| 24 28 29 3d 22 2d 41 72 | 63 22 2c 22 2d 53 65 63 |$()="-Ar|c","-Sec|
|000000c0| 74 22 2c 22 2d 53 65 67 | 22 2c 22 2d 47 6f 6e 22 |t","-Seg|","-Gon"|
|000000d0| 2c 22 53 74 61 72 22 2c | 22 4c 53 74 61 72 22 2c |,"Star",|"LStar",|
|000000e0| 22 47 5f 43 72 6f 73 73 | 22 2c 22 41 5f 43 72 6f |"G_Cross|","A_Cro|
|000000f0| 73 73 22 2c 22 4d 5f 43 | 72 6f 73 73 22 2c 22 43 |ss","M_C|ross","C|
|00000100| 75 72 76 65 64 42 6f 78 | 22 2c 22 43 75 74 42 6f |urvedBox|","CutBo|
|00000110| 78 22 2c 22 4b 69 74 65 | 22 0d 00 46 2f e3 20 69 |x","Kite|"..F/. i|
|00000120| 25 3d 30 b8 6d 61 78 73 | 68 61 70 65 25 3a e3 6a |%=0.maxs|hape%:.j|
|00000130| 25 3d 31 b8 33 3a f3 20 | 74 69 74 6c 65 24 28 69 |%=1.3:. |title$(i|
|00000140| 25 2c 6a 25 29 3a ed 2c | 0d 00 50 2d e3 20 69 25 |%,j%):.,|..P-. i%|
|00000150| 3d 30 b8 6d 61 78 73 68 | 61 70 65 25 3a e3 6a 25 |=0.maxsh|ape%:.j%|
|00000160| 3d 31 b8 33 3a f3 20 76 | 61 72 24 28 69 25 2c 6a |=1.3:. v|ar$(i%,j|
|00000170| 25 29 3a ed 2c 0d 00 5a | 1a 58 3d 30 3a 71 75 69 |%):.,..Z|.X=0:qui|
|00000180| 74 25 3d a3 3a 24 42 25 | 3d 22 54 41 53 4b 22 0d |t%=.:$B%|="TASK".|
|00000190| 00 64 2f c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.d/.. "W|imp_Init|
|000001a0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 42 25 2c |ialise",|200,!B%,|
|000001b0| 70 72 6f 67 24 20 b8 20 | 2c 74 61 73 6b 25 0d 00 |prog$ . |,task%..|
|000001c0| 6e 16 ee 20 85 20 e7 20 | a4 77 69 6d 70 65 72 72 |n.. . . |.wimperr|
|000001d0| 6f 72 20 e0 0d 00 78 2d | f2 69 63 6f 6e 28 2d 31 |or ...x-|.icon(-1|
|000001e0| 2c 30 2c 30 2c 36 38 2c | 36 38 2c 26 33 30 30 32 |,0,0,68,|68,&3002|
|000001f0| 2c 22 21 22 2b 70 72 6f | 67 24 2c 30 2c 30 2c 30 |,"!"+pro|g$,0,0,0|
|00000200| 29 0d 00 82 0c f2 69 6e | 66 6f 62 6f 78 0d 00 8c |).....in|fobox...|
|00000210| 0c f2 73 61 76 65 62 6f | 78 0d 00 96 0c f2 6d 61 |..savebo|x.....ma|
|00000220| 69 6e 62 6f 78 0d 00 a0 | 1c f2 6d 65 6e 75 28 69 |inbox...|..menu(i|
|00000230| 62 68 25 2c 22 53 61 76 | 65 22 2c 73 62 6f 78 25 |bh%,"Sav|e",sbox%|
|00000240| 29 0d 00 aa 16 ee 20 85 | 20 e7 20 a4 77 69 6d 70 |)..... .| . .wimp|
|00000250| 65 72 72 6f 72 20 e0 0d | 00 b4 13 f5 3a f2 70 6f |error ..|....:.po|
|00000260| 6c 6c 3a fd 20 71 75 69 | 74 25 0d 00 be 0e 24 42 |ll:. qui|t%....$B|
|00000270| 25 3d 22 54 41 53 4b 22 | 0d 00 c8 21 c8 99 20 22 |%="TASK"|...!.. "|
|00000280| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 2c |Wimp_Clo|seDown",|
|00000290| 74 61 73 6b 25 2c 21 42 | 25 0d 00 d2 05 e0 0d 00 |task%,!B|%.......|
|000002a0| dc 35 dc 20 52 61 64 69 | 75 73 2c 41 6e 67 6c 65 |.5. Radi|us,Angle|
|000002b0| 2c 22 22 2c 52 61 64 69 | 75 73 2c 41 6e 67 6c 65 |,"",Radi|us,Angle|
|000002c0| 2c 22 22 2c 52 61 64 69 | 75 73 2c 41 6e 67 6c 65 |,"",Radi|us,Angle|
|000002d0| 2c 22 22 0d 00 e6 15 dc | 20 4c 65 6e 67 74 68 2c |,"".....| Length,|
|000002e0| 53 69 64 65 73 2c 22 22 | 0d 00 f0 18 dc 20 50 6f |Sides,""|..... Po|
|000002f0| 69 6e 74 73 2c 4f 75 74 | 65 72 2c 49 6e 6e 65 72 |ints,Out|er,Inner|
|00000300| 0d 00 fa 16 dc 20 50 6f | 69 6e 74 73 2c 52 61 64 |..... Po|ints,Rad|
|00000310| 69 75 73 2c 22 22 0d 01 | 04 42 dc 20 4c 65 6e 67 |ius,""..|.B. Leng|
|00000320| 74 68 2c 42 61 72 20 57 | 69 64 74 68 2c 22 22 2c |th,Bar W|idth,"",|
|00000330| 20 4c 65 6e 67 74 68 2c | 42 61 72 20 57 69 64 74 | Length,|Bar Widt|
|00000340| 68 2c 22 22 2c 4c 65 6e | 67 74 68 2c 42 61 72 20 |h,"",Len|gth,Bar |
|00000350| 57 69 64 74 68 2c 22 22 | 0d 01 0e 2d dc 20 57 69 |Width,""|...-. Wi|
|00000360| 64 74 68 2c 48 65 69 67 | 68 74 2c 52 61 64 69 75 |dth,Heig|ht,Radiu|
|00000370| 73 2c 57 69 64 74 68 2c | 48 65 69 67 68 74 2c 52 |s,Width,|Height,R|
|00000380| 61 64 69 75 73 0d 01 18 | 15 dc 20 57 69 64 74 68 |adius...|.. Width|
|00000390| 2c 48 65 69 67 68 74 2c | 22 22 0d 01 22 1a dc 20 |,Height,|""..".. |
|000003a0| 31 2c 33 30 2c 30 2c 31 | 2c 33 30 2c 30 2c 31 2c |1,30,0,1|,30,0,1,|
|000003b0| 33 30 2c 30 0d 01 2c 0b | dc 20 31 2c 35 2c 30 0d |30,0..,.|. 1,5,0.|
|000003c0| 01 36 0d dc 20 36 2c 31 | 2c 30 2e 34 0d 01 40 0b |.6.. 6,1|,0.4..@.|
|000003d0| dc 20 36 2c 31 2c 30 0d | 01 4a 1d dc 20 31 2c 30 |. 6,1,0.|.J.. 1,0|
|000003e0| 2e 35 2c 30 2c 31 2c 30 | 2e 35 2c 30 2c 31 2c 30 |.5,0,1,0|.5,0,1,0|
|000003f0| 2e 35 2c 30 0d 01 54 15 | dc 20 32 2c 31 2c 30 2e |.5,0..T.|. 2,1,0.|
|00000400| 35 2c 32 2c 31 2c 30 2e | 35 0d 01 5e 0f dc 20 31 |5,2,1,0.|5..^.. 1|
|00000410| 2e 35 2c 32 2e 35 2c 30 | 0d 01 68 0a dd f2 70 6f |.5,2.5,0|..h...po|
|00000420| 6c 6c 0d 01 72 21 c8 99 | 20 22 57 69 6d 70 5f 50 |ll..r!..| "Wimp_P|
|00000430| 6f 6c 6c 22 2c 31 2c 42 | 25 20 b8 20 72 65 61 73 |oll",1,B|% . reas|
|00000440| 6f 6e 25 0d 01 7c 10 c8 | 8e 20 72 65 61 73 6f 6e |on%..|..|. reason|
|00000450| 25 20 ca 0d 01 86 10 c9 | 20 31 20 3a f2 72 65 64 |% ......| 1 :.red|
|00000460| 72 61 77 0d 01 90 21 c9 | 20 32 20 3a c8 99 20 22 |raw...!.| 2 :.. "|
|00000470| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00000480| 2c 2c 42 25 0d 01 9a 35 | c9 20 33 20 3a c8 99 20 |,,B%...5|. 3 :.. |
|00000490| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|000004a0| 77 22 2c 2c 42 25 3a e7 | 20 21 42 25 3d 6d 62 78 |w",,B%:.| !B%=mbx|
|000004b0| 25 20 6f 70 65 6e 25 3d | a3 0d 01 a4 11 c9 20 36 |% open%=|...... 6|
|000004c0| 20 3a f2 62 75 74 74 6f | 6e 73 0d 01 ae 16 c9 20 | :.butto|ns..... |
|000004d0| 37 20 3a f2 69 6e 69 74 | 69 61 74 65 73 61 76 65 |7 :.init|iatesave|
|000004e0| 0d 01 b8 2f c9 20 38 20 | 3a e7 20 ac 20 a4 6f 75 |.../. 8 |:. . .ou|
|000004f0| 72 6b 65 79 20 c8 99 20 | 22 57 69 6d 70 5f 50 72 |rkey .. |"Wimp_Pr|
|00000500| 6f 63 65 73 73 4b 65 79 | 22 2c 42 25 21 32 34 0d |ocessKey|",B%!24.|
|00000510| 01 c2 14 c9 20 39 20 3a | f2 6d 65 6e 75 73 65 6c |.... 9 :|.menusel|
|00000520| 65 63 74 0d 01 cc 14 c9 | 20 31 37 2c 31 38 3a f2 |ect.....| 17,18:.|
|00000530| 72 65 63 65 69 76 65 0d | 01 d6 49 c9 20 31 39 3a |receive.|..I. 19:|
|00000540| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 36 2c 42 |.. "OS_F|ile",6,B|
|00000550| 25 2b 34 34 3a 85 20 32 | 35 35 2c 22 44 61 74 61 |%+44:. 2|55,"Data|
|00000560| 20 74 72 61 6e 73 66 65 | 72 20 66 61 69 6c 65 64 | transfe|r failed|
|00000570| 3a 20 52 65 63 65 69 76 | 65 72 20 64 69 65 64 22 |: Receiv|er died"|
|00000580| 0d 01 e0 05 cb 0d 01 ea | 05 e1 0d 01 f4 0c dd a4 |........|........|
|00000590| 6f 75 72 6b 65 79 0d 01 | fe 14 72 65 74 75 72 6e |ourkey..|..return|
|000005a0| 25 3d 42 25 21 32 34 3d | 31 33 0d 02 08 0f e7 20 |%=B%!24=|13..... |
|000005b0| 72 65 74 75 72 6e 25 20 | 8c 0d 02 12 0c c8 8e 20 |return% |....... |
|000005c0| 21 42 25 20 ca 0d 02 1c | 16 c9 20 73 62 6f 78 25 |!B% ....|.. sbox%|
|000005d0| 3a f2 71 75 69 63 6b 73 | 61 76 65 0d 02 26 0a c9 |:.quicks|ave..&..|
|000005e0| 20 6d 62 78 25 0d 02 30 | 0d c8 8e 20 42 25 21 34 | mbx%..0|... B%!4|
|000005f0| 20 ca 0d 02 3a 1d c9 20 | 32 31 3a f2 63 61 72 65 | ...:.. |21:.care|
|00000600| 74 28 32 33 2c a9 24 69 | 6e 64 25 28 32 29 29 0d |t(23,.$i|nd%(2)).|
|00000610| 02 44 43 c9 20 32 33 3a | e7 20 24 74 65 78 74 25 |.DC. 23:|. $text%|
|00000620| 28 33 29 3e 22 22 20 f2 | 63 61 72 65 74 28 32 35 |(3)>"" .|caret(25|
|00000630| 2c a9 24 69 6e 64 25 28 | 33 29 29 20 8b 20 f2 63 |,.$ind%(|3)) . .c|
|00000640| 61 72 65 74 28 32 31 2c | a9 24 69 6e 64 25 28 31 |aret(21,|.$ind%(1|
|00000650| 29 29 0d 02 4e 1d c9 20 | 32 35 3a f2 63 61 72 65 |))..N.. |25:.care|
|00000660| 74 28 32 31 2c a9 24 69 | 6e 64 25 28 31 29 29 0d |t(21,.$i|nd%(1)).|
|00000670| 02 58 05 cb 0d 02 62 05 | cb 0d 02 6c 05 cd 0d 02 |.X....b.|...l....|
|00000680| 76 0c 3d 72 65 74 75 72 | 6e 25 0d 02 80 34 dd f2 |v.=retur|n%...4..|
|00000690| 63 61 72 65 74 28 69 63 | 25 2c 70 6f 73 25 29 3a |caret(ic|%,pos%):|
|000006a0| c8 99 20 26 34 30 30 44 | 32 2c 6d 62 78 25 2c 69 |.. &400D|2,mbx%,i|
|000006b0| 63 25 2c 2c 2c 2d 31 2c | 70 6f 73 25 3a e1 0d 02 |c%,,,-1,|pos%:...|
|000006c0| 8a 0d dd f2 72 65 63 65 | 69 76 65 0d 02 94 0e c8 |....rece|ive.....|
|000006d0| 8e 20 42 25 21 31 36 20 | ca 0d 02 9e 0f c9 20 30 |. B%!16 |...... 0|
|000006e0| 3a 71 75 69 74 25 3d b9 | 0d 02 a8 11 c9 20 32 3a |:quit%=.|..... 2:|
|000006f0| f2 64 61 74 61 73 61 76 | 65 0d 02 b2 05 cb 0d 02 |.datasav|e.......|
|00000700| bc 05 e1 0d 02 c6 3c dd | a4 63 72 65 61 74 65 28 |......<.|.create(|
|00000710| 63 6f 6c 25 2c 76 77 78 | 25 2c 76 77 79 25 2c 76 |col%,vwx|%,vwy%,v|
|00000720| 77 77 25 2c 76 77 68 25 | 2c 66 6c 61 67 73 25 2c |ww%,vwh%|,flags%,|
|00000730| 74 69 74 6c 65 24 2c 68 | 69 67 68 6c 74 25 29 0d |title$,h|ighlt%).|
|00000740| 02 d0 0f 24 42 25 3d c4 | 38 38 2c bd 30 29 0d 02 |...$B%=.|88,.0)..|
|00000750| da 36 42 25 21 30 3d 76 | 77 78 25 3a 42 25 21 34 |.6B%!0=v|wx%:B%!4|
|00000760| 3d 76 77 79 25 3a 42 25 | 21 38 3d 76 77 78 25 2b |=vwy%:B%|!8=vwx%+|
|00000770| 76 77 77 25 3a 42 25 21 | 31 32 3d 76 77 79 25 2b |vww%:B%!|12=vwy%+|
|00000780| 76 77 68 25 0d 02 e4 19 | 42 25 21 32 34 3d 2d 31 |vwh%....|B%!24=-1|
|00000790| 3a 42 25 21 32 38 3d 66 | 6c 61 67 73 25 0d 02 ee |:B%!28=f|lags%...|
|000007a0| 1b 42 25 21 33 32 3d 26 | 37 30 32 30 37 2b 28 63 |.B%!32=&|70207+(c|
|000007b0| 6f 6c 25 3c 3c 32 34 29 | 0d 02 f8 23 42 25 21 33 |ol%<<24)|...#B%!3|
|000007c0| 36 3d 26 31 30 33 2b 28 | 28 32 2d 31 30 2a 68 69 |6=&103+(|(2-10*hi|
|000007d0| 67 68 6c 74 25 29 3c 3c | 31 36 29 0d 03 02 1a 42 |ghlt%)<<|16)....B|
|000007e0| 25 21 34 34 3d 2d 76 77 | 68 25 3a 42 25 21 34 38 |%!44=-vw|h%:B%!48|
|000007f0| 3d 76 77 77 25 0d 03 0c | 27 42 25 21 35 32 3d 30 |=vww%...|'B%!52=0|
|00000800| 3a 42 25 21 36 30 3d 33 | 3c 3c 31 32 3a 42 25 21 |:B%!60=3|<<12:B%!|
|00000810| 36 34 3d 31 3a 42 25 21 | 36 38 3d 30 0d 03 16 12 |64=1:B%!|68=0....|
|00000820| e7 20 a9 74 69 74 6c 65 | 24 3c 31 32 20 8c 0d 03 |. .title|$<12 ...|
|00000830| 20 1d 42 25 21 35 36 3d | 26 33 44 3a 24 28 42 25 | .B%!56=|&3D:$(B%|
|00000840| 2b 37 32 29 3d 74 69 74 | 6c 65 24 0d 03 2a 05 cc |+72)=tit|le$..*..|
|00000850| 0d 03 34 21 de 20 62 75 | 66 25 20 a9 74 69 74 6c |..4!. bu|f% .titl|
|00000860| 65 24 2b 31 3a 24 62 75 | 66 25 3d 74 69 74 6c 65 |e$+1:$bu|f%=title|
|00000870| 24 0d 03 3e 31 42 25 21 | 35 36 3d 26 31 33 44 3a |$..>1B%!|56=&13D:|
|00000880| 42 25 21 37 32 3d 62 75 | 66 25 3a 42 25 21 37 36 |B%!72=bu|f%:B%!76|
|00000890| 3d 30 3a 42 25 21 38 30 | 3d a9 74 69 74 6c 65 24 |=0:B%!80|=.title$|
|000008a0| 2b 31 0d 03 48 05 cd 0d | 03 52 28 c8 99 20 22 57 |+1..H...|.R(.. "W|
|000008b0| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|000008c0| 22 2c 2c 42 25 20 b8 20 | 68 61 6e 64 6c 65 25 0d |",,B% . |handle%.|
|000008d0| 03 5c 0c 3d 68 61 6e 64 | 6c 65 25 0d 03 66 3c dd |.\.=hand|le%..f<.|
|000008e0| f2 69 63 6f 6e 28 77 68 | 61 6e 64 6c 65 25 2c 69 |.icon(wh|andle%,i|
|000008f0| 78 25 2c 69 79 25 2c 69 | 77 25 2c 69 68 25 2c 66 |x%,iy%,i|w%,ih%,f|
|00000900| 6c 61 67 25 2c 74 65 78 | 74 24 2c 64 31 25 2c 64 |lag%,tex|t$,d1%,d|
|00000910| 32 25 2c 64 33 25 29 0d | 03 70 23 42 25 21 30 3d |2%,d3%).|.p#B%!0=|
|00000920| 77 68 61 6e 64 6c 65 25 | 3a 42 25 21 34 3d 69 78 |whandle%|:B%!4=ix|
|00000930| 25 3a 42 25 21 38 3d 69 | 79 25 0d 03 7a 2b 42 25 |%:B%!8=i|y%..z+B%|
|00000940| 21 31 32 3d 69 78 25 2b | 69 77 25 3a 42 25 21 31 |!12=ix%+|iw%:B%!1|
|00000950| 36 3d 69 79 25 2b 69 68 | 25 3a 42 25 21 32 30 3d |6=iy%+ih|%:B%!20=|
|00000960| 66 6c 61 67 25 0d 03 84 | 0d e7 20 64 31 25 3d 30 |flag%...|.. d1%=0|
|00000970| 20 8c 0d 03 8e 12 24 28 | 42 25 2b 32 34 29 3d 74 | .....$(|B%+24)=t|
|00000980| 65 78 74 24 0d 03 98 05 | cc 0d 03 a2 21 42 25 21 |ext$....|....!B%!|
|00000990| 32 34 3d 64 31 25 3a 42 | 25 21 32 38 3d 64 32 25 |24=d1%:B|%!28=d2%|
|000009a0| 3a 42 25 21 33 32 3d 64 | 33 25 0d 03 ac 05 cd 0d |:B%!32=d|3%......|
|000009b0| 03 b6 1c c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..... "W|imp_Crea|
|000009c0| 74 65 49 63 6f 6e 22 2c | 2c 42 25 0d 03 c0 05 e1 |teIcon",|,B%.....|
|000009d0| 0d 03 ca 0b dd f2 63 6c | 6f 73 65 0d 03 d4 0e 24 |......cl|ose....$|
|000009e0| 42 25 3d 22 54 41 53 4b | 22 0d 03 de 21 c8 99 20 |B%="TASK|"...!.. |
|000009f0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000a00| 2c 74 61 73 6b 25 2c 21 | 42 25 0d 03 e8 05 e1 0d |,task%,!|B%......|
|00000a10| 03 f2 0f dd a4 77 69 6d | 70 65 72 72 6f 72 0d 03 |.....wim|perror..|
|00000a20| fc 11 e7 20 58 3e 30 20 | d9 23 58 3a 58 3d 30 0d |... X>0 |.#X:X=0.|
|00000a30| 04 06 09 21 42 25 3d 9f | 0d 04 10 32 24 28 42 25 |...!B%=.|...2$(B%|
|00000a40| 2b 34 29 3d f6 24 2b 22 | 20 20 28 69 6e 74 65 72 |+4)=.$+"| (inter|
|00000a50| 6e 61 6c 20 65 72 72 6f | 72 20 63 6f 64 65 20 22 |nal erro|r code "|
|00000a60| 2b c3 9e 2b 22 29 22 2b | bd 30 0d 04 1a 31 c8 99 |+..+")"+|.0...1..|
|00000a70| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00000a80| 6f 72 22 2c 42 25 2c 33 | 2c 70 72 6f 67 24 20 b8 |or",B%,3|,prog$ .|
|00000a90| 20 2c 72 65 73 70 6f 6e | 73 65 25 0d 04 24 22 e7 | ,respon|se%..$".|
|00000aa0| 20 72 65 73 70 6f 6e 73 | 65 25 3d 32 20 8c 20 f2 | respons|e%=2 . .|
|00000ab0| 63 6c 6f 73 65 3a 3d b9 | 20 8b 20 3d a3 0d 04 2e |close:=.| . =....|
|00000ac0| 15 dd f2 6d 65 6e 75 28 | 69 6e 25 2c 74 24 2c 74 |...menu(|in%,t$,t|
|00000ad0| 25 29 0d 04 38 0f de 20 | 6d 65 6e 75 25 20 31 30 |%)..8.. |menu% 10|
|00000ae0| 30 0d 04 42 10 24 6d 65 | 6e 75 25 3d 70 72 6f 67 |0..B.$me|nu%=prog|
|00000af0| 24 0d 04 4c 23 e7 20 a9 | 74 24 3e a9 70 72 6f 67 |$..L#. .|t$>.prog|
|00000b00| 24 20 77 25 3d a9 74 24 | 20 8b 20 77 25 3d a9 70 |$ w%=.t$| . w%=.p|
|00000b10| 72 6f 67 24 0d 04 56 3d | 6d 65 6e 75 25 21 31 32 |rog$..V=|menu%!12|
|00000b20| 3d 26 37 30 32 30 37 3a | 6d 65 6e 75 25 21 31 36 |=&70207:|menu%!16|
|00000b30| 3d 31 36 2a 28 77 25 2b | 31 29 3a 6d 65 6e 75 25 |=16*(w%+|1):menu%|
|00000b40| 21 32 30 3d 34 34 3a 6d | 65 6e 75 25 21 32 34 3d |!20=44:m|enu%!24=|
|00000b50| 30 0d 04 60 31 6d 65 6e | 75 25 21 32 38 3d 30 3a |0..`1men|u%!28=0:|
|00000b60| 6d 65 6e 75 25 21 33 32 | 3d 69 6e 25 3a 6d 65 6e |menu%!32|=in%:men|
|00000b70| 75 25 21 33 36 3d 26 32 | 31 20 2b 28 37 3c 3c 32 |u%!36=&2|1 +(7<<2|
|00000b80| 34 29 0d 04 6a 16 24 28 | 6d 65 6e 75 25 2b 34 30 |4)..j.$(|menu%+40|
|00000b90| 29 3d 22 49 6e 66 6f 22 | 0d 04 74 30 6d 65 6e 75 |)="Info"|..t0menu|
|00000ba0| 25 21 35 32 3d 30 3a 6d | 65 6e 75 25 21 35 36 3d |%!52=0:m|enu%!56=|
|00000bb0| 2d 31 3a 6d 65 6e 75 25 | 21 36 30 3d 26 32 31 20 |-1:menu%|!60=&21 |
|00000bc0| 2b 28 37 3c 3c 32 34 29 | 0d 04 7e 16 e7 20 74 25 |+(7<<24)|..~.. t%|
|00000bd0| 3e 30 20 6d 65 6e 75 25 | 21 35 36 3d 74 25 0d 04 |>0 menu%|!56=t%..|
|00000be0| 88 12 24 28 6d 65 6e 75 | 25 2b 36 34 29 3d 74 24 |..$(menu|%+64)=t$|
|00000bf0| 0d 04 92 32 6d 65 6e 75 | 25 21 37 36 3d 26 38 30 |...2menu|%!76=&80|
|00000c00| 3a 6d 65 6e 75 25 21 38 | 30 3d 2d 31 3a 6d 65 6e |:menu%!8|0=-1:men|
|00000c10| 75 25 21 38 34 3d 26 32 | 31 20 2b 28 37 3c 3c 32 |u%!84=&2|1 +(7<<2|
|00000c20| 34 29 0d 04 9c 16 24 28 | 6d 65 6e 75 25 2b 38 38 |4)....$(|menu%+88|
|00000c30| 29 3d 22 51 75 69 74 22 | 0d 04 a6 05 e1 0d 04 b0 |)="Quit"|........|
|00000c40| 10 dd f2 6d 65 6e 75 73 | 65 6c 65 63 74 0d 04 ba |...menus|elect...|
|00000c50| 0c c8 8e 20 21 42 25 20 | ca 0d 04 c4 12 c9 20 31 |... !B% |...... 1|
|00000c60| 3a f2 71 75 69 63 6b 73 | 61 76 65 0d 04 ce 0f c9 |:.quicks|ave.....|
|00000c70| 20 32 3a 71 75 69 74 25 | 3d b9 0d 04 d8 05 cb 0d | 2:quit%|=.......|
|00000c80| 04 e2 0f e7 20 ac 20 71 | 75 69 74 25 20 8c 0d 04 |.... . q|uit% ...|
|00000c90| ec 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 50 6f |. .. "Wi|mp_GetPo|
|00000ca0| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 42 25 0d 04 |interInf|o",,B%..|
|00000cb0| f6 1d e7 20 42 25 21 38 | 3d 31 20 f2 73 68 6f 77 |... B%!8|=1 .show|
|00000cc0| 6d 65 6e 75 28 78 25 2c | 79 25 29 0d 05 00 05 cd |menu(x%,|y%).....|
|00000cd0| 0d 05 0a 05 e1 0d 05 14 | 19 dd f2 6f 70 65 6e 77 |........|...openw|
|00000ce0| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 29 0d 05 |indow(ha|ndle%)..|
|00000cf0| 1e 2c 21 42 25 3d 68 61 | 6e 64 6c 65 25 3a c8 99 |.,!B%=ha|ndle%:..|
|00000d00| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00000d10| 53 74 61 74 65 22 2c 2c | 42 25 0d 05 28 25 42 25 |State",,|B%..(%B%|
|00000d20| 21 32 38 3d 2d 31 3a c8 | 99 20 22 57 69 6d 70 5f |!28=-1:.|. "Wimp_|
|00000d30| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 42 25 0d |OpenWind|ow",,B%.|
|00000d40| 05 32 05 e1 0d 05 3c 18 | dd f2 73 68 6f 77 6d 65 |.2....<.|..showme|
|00000d50| 6e 75 28 6d 25 2c 78 25 | 2c 79 25 29 0d 05 46 0e |nu(m%,x%|,y%)..F.|
|00000d60| f2 72 65 61 64 69 63 6f | 6e 73 0d 05 50 25 c8 99 |.readico|ns..P%..|
|00000d70| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00000d80| 75 22 2c 2c 6d 25 2c 78 | 25 2d 36 34 2c 79 25 0d |u",,m%,x|%-64,y%.|
|00000d90| 05 5a 05 e1 0d 05 64 0d | dd f2 62 75 74 74 6f 6e |.Z....d.|..button|
|00000da0| 73 0d 05 6e 36 78 25 3d | 21 42 25 3a 79 25 3d 42 |s..n6x%=|!B%:y%=B|
|00000db0| 25 21 34 3a 62 75 74 25 | 3d 42 25 21 38 3a 68 61 |%!4:but%|=B%!8:ha|
|00000dc0| 6e 64 6c 65 25 3d 42 25 | 21 31 32 3a 69 63 6f 6e |ndle%=B%|!12:icon|
|00000dd0| 25 3d 42 25 21 31 36 0d | 05 78 10 c8 8e 20 68 61 |%=B%!16.|.x... ha|
|00000de0| 6e 64 6c 65 25 20 ca 0d | 05 82 08 c9 20 2d 32 0d |ndle% ..|.... -2.|
|00000df0| 05 8c 26 e7 20 62 75 74 | 25 20 80 20 32 3a f2 73 |..&. but|% . 2:.s|
|00000e00| 68 6f 77 6d 65 6e 75 28 | 6d 65 6e 75 25 2c 78 25 |howmenu(|menu%,x%|
|00000e10| 2c 32 32 38 29 0d 05 96 | 3d e7 20 62 75 74 25 20 |,228)...|=. but% |
|00000e20| 80 20 35 3a 6f 70 65 6e | 25 3d b9 3a f2 6f 70 65 |. 5:open|%=.:.ope|
|00000e30| 6e 77 69 6e 64 6f 77 28 | 6d 62 78 25 29 3a f2 63 |nwindow(|mbx%):.c|
|00000e40| 61 72 65 74 28 32 31 2c | a9 24 69 6e 64 25 28 31 |aret(21,|.$ind%(1|
|00000e50| 29 29 0d 05 a0 0b c9 20 | 73 62 6f 78 25 0d 05 aa |))..... |sbox%...|
|00000e60| 0e c8 8e 20 69 63 6f 6e | 25 20 ca 0d 05 b4 21 c9 |... icon|% ....!.|
|00000e70| 20 30 3a e7 20 28 62 75 | 74 25 20 80 20 26 35 30 | 0:. (bu|t% . &50|
|00000e80| 29 3e 30 20 f2 64 72 61 | 67 62 6f 78 0d 05 be 22 |)>0 .dra|gbox..."|
|00000e90| c9 20 32 3a e7 20 28 62 | 75 74 25 20 80 20 35 29 |. 2:. (b|ut% . 5)|
|00000ea0| 3e 30 20 20 f2 71 75 69 | 63 6b 73 61 76 65 0d 05 |>0 .qui|cksave..|
|00000eb0| c8 05 cb 0d 05 d2 0a c9 | 20 6d 62 78 25 0d 05 dc |........| mbx%...|
|00000ec0| 25 e7 20 62 75 74 25 20 | 80 20 32 3a f2 73 68 6f |%. but% |. 2:.sho|
|00000ed0| 77 6d 65 6e 75 28 73 62 | 6f 78 25 2c 78 25 2c 79 |wmenu(sb|ox%,x%,y|
|00000ee0| 25 29 0d 05 e6 10 e7 20 | 62 75 74 25 20 80 20 35 |%)..... |but% . 5|
|00000ef0| 20 8c 0d 05 f0 0a c8 8e | 20 b9 20 ca 0d 05 fa 31 | .......| . ....1|
|00000f00| c9 20 69 63 6f 6e 25 3e | 30 20 80 20 69 63 6f 6e |. icon%>|0 . icon|
|00000f10| 25 3c 31 33 3a 73 68 61 | 70 65 25 3d 69 63 6f 6e |%<13:sha|pe%=icon|
|00000f20| 25 2d 31 3a f2 73 65 74 | 69 63 6f 6e 73 0d 06 04 |%-1:.set|icons...|
|00000f30| 1d c9 20 69 63 6f 6e 25 | 3c 31 39 3a 6c 69 6e 65 |.. icon%|<19:line|
|00000f40| 25 3d 69 63 6f 6e 25 2d | 31 35 0d 06 0e 18 c9 20 |%=icon%-|15..... |
|00000f50| 69 63 6f 6e 25 3d 32 37 | 3a 73 63 61 6c 65 3d 31 |icon%=27|:scale=1|
|00000f60| 38 30 0d 06 18 1d c9 20 | 69 63 6f 6e 25 3d 32 38 |80..... |icon%=28|
|00000f70| 3a 73 63 61 6c 65 3d 31 | 38 30 2f 32 2e 35 34 0d |:scale=1|80/2.54.|
|00000f80| 06 22 05 cb 0d 06 2c 05 | cd 0d 06 36 05 cb 0d 06 |."....,.|...6....|
|00000f90| 40 05 e1 0d 06 4a 0d dd | f2 69 6e 66 6f 62 6f 78 |@....J..|.infobox|
|00000fa0| 0d 06 54 42 69 62 68 25 | 3d a4 63 72 65 61 74 65 |..TBibh%|=.create|
|00000fb0| 28 26 37 31 2c 30 2c 30 | 2c 35 39 30 2c 32 31 36 |(&71,0,0|,590,216|
|00000fc0| 2c 26 38 34 30 30 30 30 | 31 32 2c 22 41 62 6f 75 |,&840000|12,"Abou|
|00000fd0| 74 20 54 68 69 73 20 50 | 72 6f 67 72 61 6d 22 2c |t This P|rogram",|
|00000fe0| b9 29 0d 06 5e 16 de 20 | 69 63 6f 6e 69 6e 64 69 |.)..^.. |iconindi|
|00000ff0| 72 65 63 74 25 20 38 30 | 0d 06 68 09 f7 20 2b 31 |rect% 80|..h.. +1|
|00001000| 30 0d 06 72 0c e3 20 69 | 25 3d 30 b8 33 0d 06 7c |0..r.. i|%=0.3..||
|00001010| 0b f3 20 74 65 78 74 24 | 0d 06 86 38 f2 69 63 6f |.. text$|...8.ico|
|00001020| 6e 28 69 62 68 25 2c 34 | 2c 2d 28 69 25 2b 31 29 |n(ibh%,4|,-(i%+1)|
|00001030| 2a 35 32 2c 31 35 30 2c | 34 38 2c 26 37 30 30 30 |*52,150,|48,&7000|
|00001040| 32 31 31 2c 74 65 78 74 | 24 2c 30 2c 30 2c 30 29 |211,text|$,0,0,0)|
|00001050| 0d 06 90 05 ed 0d 06 9a | 14 74 25 3d 69 63 6f 6e |........|.t%=icon|
|00001060| 69 6e 64 69 72 65 63 74 | 25 0d 06 a4 0c e3 20 69 |indirect|%..... i|
|00001070| 25 3d 30 b8 33 0d 06 ae | 1c e7 20 69 25 3d 30 20 |%=0.3...|.. i%=0 |
|00001080| 24 74 25 3d 70 72 6f 67 | 24 20 8b 20 f3 20 24 74 |$t%=prog|$ . . $t|
|00001090| 25 0d 06 b8 3a f2 69 63 | 6f 6e 28 69 62 68 25 2c |%...:.ic|on(ibh%,|
|000010a0| 31 35 34 2c 2d 28 69 25 | 2b 31 29 2a 35 32 2c 34 |154,-(i%|+1)*52,4|
|000010b0| 33 32 2c 34 38 2c 26 37 | 30 30 30 31 42 44 2c 22 |32,48,&7|0001BD,"|
|000010c0| 22 2c 74 25 2c 2d 31 2c | 32 38 29 0d 06 c2 0e 74 |",t%,-1,|28)....t|
|000010d0| 25 2b 3d a9 24 74 25 2b | 31 0d 06 cc 05 ed 0d 06 |%+=.$t%+|1.......|
|000010e0| d6 05 e1 0d 06 e0 25 dc | 20 4e 61 6d 65 3a 2c 50 |......%.| Name:,P|
|000010f0| 75 72 70 6f 73 65 3a 2c | 41 75 74 68 6f 72 3a 2c |urpose:,|Author:,|
|00001100| 56 65 72 73 69 6f 6e 3a | 0d 06 ea 3f dc 20 4d 61 |Version:|...?. Ma|
|00001110| 6b 65 20 47 65 6f 6d 65 | 74 72 69 63 20 44 72 61 |ke Geome|tric Dra|
|00001120| 77 46 69 6c 65 73 2c 52 | 6f 73 65 6d 61 72 79 20 |wFiles,R|osemary |
|00001130| 4d 69 73 6b 69 6e 2c 32 | 2e 30 30 20 28 32 35 2d |Miskin,2|.00 (25-|
|00001140| 41 75 67 2d 39 32 29 0d | 06 f4 10 dd a4 73 74 72 |Aug-92).|.....str|
|00001150| 69 6e 67 28 6c 25 29 0d | 06 fe 15 64 24 3d 22 22 |ing(l%).|...d$=""|
|00001160| 3a 61 25 3d 30 3a 62 25 | 3d 3f 6c 25 0d 07 08 25 |:a%=0:b%|=?l%...%|
|00001170| c8 95 20 62 25 3c 3e 30 | 20 64 24 2b 3d bd 62 25 |.. b%<>0| d$+=.b%|
|00001180| 3a 61 25 2b 3d 31 3a 62 | 25 3d 6c 25 3f 61 25 3a |:a%+=1:b|%=l%?a%:|
|00001190| ce 0d 07 12 07 3d 64 24 | 0d 07 1c 0d dd f2 73 61 |.....=d$|......sa|
|000011a0| 76 65 62 6f 78 0d 07 26 | 38 73 62 6f 78 25 3d a4 |vebox..&|8sbox%=.|
|000011b0| 63 72 65 61 74 65 28 31 | 2c 30 30 2c 30 2c 32 36 |create(1|,00,0,26|
|000011c0| 34 2c 31 36 34 2c 26 38 | 34 30 30 30 30 31 32 2c |4,164,&8|4000012,|
|000011d0| 22 53 61 76 65 20 61 73 | 3a 22 2c a3 29 0d 07 30 |"Save as|:",.)..0|
|000011e0| 1a de 20 73 62 74 65 78 | 74 25 20 26 46 46 2c 73 |.. sbtex|t% &FF,s|
|000011f0| 62 76 61 6c 25 20 34 0d | 07 3a 22 24 73 62 76 61 |bval% 4.|.:"$sbva|
|00001200| 6c 25 3d 22 41 7e 20 22 | 3a 24 73 62 74 65 78 74 |l%="A~ "|:$sbtext|
|00001210| 25 3d 22 33 2d 67 6f 6e | 22 0d 07 44 34 f2 69 63 |%="3-gon|"..D4.ic|
|00001220| 6f 6e 28 73 62 6f 78 25 | 2c 38 30 2c 2d 39 32 2c |on(sbox%|,80,-92,|
|00001230| 36 38 2c 36 38 2c 26 36 | 30 30 32 2c 22 66 69 6c |68,68,&6|002,"fil|
|00001240| 65 5f 61 66 66 22 2c 30 | 2c 30 2c 30 29 0d 07 4e |e_aff",0|,0,0)..N|
|00001250| 3d f2 69 63 6f 6e 28 73 | 62 6f 78 25 2c 38 2c 2d |=.icon(s|box%,8,-|
|00001260| 31 35 36 2c 31 39 32 2c | 34 38 2c 26 37 30 30 46 |156,192,|48,&700F|
|00001270| 31 32 44 2c 22 22 2c 73 | 62 74 65 78 74 25 2c 73 |12D,"",s|btext%,s|
|00001280| 62 76 61 6c 25 2c 26 46 | 46 29 0d 07 58 34 f2 69 |bval%,&F|F)..X4.i|
|00001290| 63 6f 6e 28 73 62 6f 78 | 25 2c 32 30 38 2c 2d 31 |con(sbox|%,208,-1|
|000012a0| 35 36 2c 34 38 2c 34 38 | 2c 26 43 37 30 31 39 30 |56,48,48|,&C70190|
|000012b0| 33 44 2c 22 4f 4b 22 2c | 30 2c 30 2c 30 29 0d 07 |3D,"OK",|0,0,0)..|
|000012c0| 62 05 e1 0d 07 6c 0d dd | f2 64 72 61 67 62 6f 78 |b....l..|.dragbox|
|000012d0| 0d 07 76 2a 21 42 25 3d | 73 62 6f 78 25 3a c8 99 |..v*!B%=|sbox%:..|
|000012e0| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|000012f0| 53 74 61 74 65 22 2c 2c | 42 25 0d 07 80 12 6f 78 |State",,|B%....ox|
|00001300| 25 3d 42 25 21 34 2d 42 | 25 21 32 30 0d 07 8a 13 |%=B%!4-B|%!20....|
|00001310| 6f 79 25 3d 42 25 21 31 | 36 2d 42 25 21 32 34 0d |oy%=B%!1|6-B%!24.|
|00001320| 07 94 25 42 25 21 34 3d | 30 3a c8 99 20 22 57 69 |..%B%!4=|0:.. "Wi|
|00001330| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00001340| 2c 2c 42 25 0d 07 9e 14 | 21 42 25 3d 73 62 6f 78 |,,B%....|!B%=sbox|
|00001350| 25 3a 42 25 21 34 3d 35 | 0d 07 a8 18 42 25 21 38 |%:B%!4=5|....B%!8|
|00001360| 2b 3d 6f 78 25 3a 42 25 | 21 31 32 2b 3d 6f 79 25 |+=ox%:B%|!12+=oy%|
|00001370| 0d 07 b2 19 42 25 21 31 | 36 2b 3d 6f 78 25 3a 42 |....B%!1|6+=ox%:B|
|00001380| 25 21 32 30 2b 3d 6f 79 | 25 0d 07 bc 13 42 25 21 |%!20+=oy|%....B%!|
|00001390| 32 34 3d 30 3a 42 25 21 | 32 38 3d 30 0d 07 c6 23 |24=0:B%!|28=0...#|
|000013a0| 42 25 21 33 32 3d 26 37 | 46 46 46 46 46 46 46 3a |B%!32=&7|FFFFFFF:|
|000013b0| 42 25 21 33 36 3d 26 37 | 46 46 46 46 46 46 46 0d |B%!36=&7|FFFFFFF.|
|000013c0| 07 d0 19 c8 99 20 22 57 | 69 6d 70 5f 44 72 61 67 |..... "W|imp_Drag|
|000013d0| 42 6f 78 22 2c 2c 42 25 | 0d 07 da 05 e1 0d 07 e4 |Box",,B%|........|
|000013e0| 0f dd f2 71 75 69 63 6b | 73 61 76 65 0d 07 ee 16 |...quick|save....|
|000013f0| e7 20 a7 24 73 62 74 65 | 78 74 25 2c 22 2e 22 29 |. .$sbte|xt%,".")|
|00001400| 20 8c 0d 07 f8 13 f2 73 | 61 76 65 28 24 73 62 74 | ......s|ave($sbt|
|00001410| 65 78 74 25 29 0d 08 02 | 05 cc 0d 08 0c 39 24 42 |ext%)...|.....9$B|
|00001420| 25 3d 22 20 20 20 54 6f | 20 73 61 76 65 2c 20 64 |%=" To| save, d|
|00001430| 72 61 67 20 74 68 65 20 | 69 63 6f 6e 20 74 6f 20 |rag the |icon to |
|00001440| 61 20 64 69 72 65 63 74 | 6f 72 79 20 76 69 65 77 |a direct|ory view|
|00001450| 65 72 22 0d 08 16 24 c8 | 99 20 22 57 69 6d 70 5f |er"...$.|. "Wimp_|
|00001460| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 42 25 2c |ReportEr|ror",B%,|
|00001470| 31 2c 70 72 6f 67 24 0d | 08 20 05 cd 0d 08 2a 05 |1,prog$.|. ....*.|
|00001480| e1 0d 08 34 12 dd f2 69 | 6e 69 74 69 61 74 65 73 |...4...i|nitiates|
|00001490| 61 76 65 0d 08 3e 20 c8 | 99 20 22 57 69 6d 70 5f |ave..> .|. "Wimp_|
|000014a0| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|000014b0| 2c 42 25 0d 08 48 1b 42 | 25 21 32 30 3d 42 25 21 |,B%..H.B|%!20=B%!|
|000014c0| 31 32 3a 42 25 21 32 34 | 3d 42 25 21 31 36 0d 08 |12:B%!24|=B%!16..|
|000014d0| 52 19 42 25 21 32 38 3d | 42 25 21 30 3a 42 25 21 |R.B%!28=|B%!0:B%!|
|000014e0| 33 32 3d 42 25 21 34 0d | 08 5c 19 42 25 21 33 36 |32=B%!4.|.\.B%!36|
|000014f0| 3d 26 31 30 30 3a 42 25 | 21 34 30 3d 26 41 46 46 |=&100:B%|!40=&AFF|
|00001500| 0d 08 66 1b 42 25 21 30 | 3d 36 34 3a 42 25 21 31 |..f.B%!0|=64:B%!1|
|00001510| 32 3d 30 3a 42 25 21 31 | 36 3d 31 0d 08 70 1f 24 |2=0:B%!1|6=1..p.$|
|00001520| 28 42 25 2b 34 34 29 3d | a4 67 65 74 6c 65 61 66 |(B%+44)=|.getleaf|
|00001530| 28 24 73 62 74 65 78 74 | 25 29 0d 08 7a 2b c8 99 |($sbtext|%)..z+..|
|00001540| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00001550| 67 65 22 2c 31 37 2c 42 | 25 2c 42 25 21 32 30 2c |ge",17,B|%,B%!20,|
|00001560| 42 25 21 32 34 0d 08 84 | 05 e1 0d 08 8e 14 dd a4 |B%!24...|........|
|00001570| 67 65 74 6c 65 61 66 28 | 6e 61 6d 65 24 29 0d 08 |getleaf(|name$)..|
|00001580| 98 12 c8 95 20 a7 6e 61 | 6d 65 24 2c 22 2e 22 29 |.... .na|me$,".")|
|00001590| 0d 08 a2 1f 6e 61 6d 65 | 24 3d c1 6e 61 6d 65 24 |....name|$=.name$|
|000015a0| 2c a7 6e 61 6d 65 24 2c | 22 2e 22 29 2b 31 29 0d |,.name$,|".")+1).|
|000015b0| 08 ac 05 ce 0d 08 b6 0d | 3d 6e 61 6d 65 24 2b bd |........|=name$+.|
|000015c0| 30 0d 08 c0 0e dd f2 64 | 61 74 61 73 61 76 65 0d |0......d|atasave.|
|000015d0| 08 ca 1c 66 75 6c 6c 6e | 61 6d 65 24 3d a4 73 74 |...fulln|ame$=.st|
|000015e0| 72 69 6e 67 28 42 25 2b | 34 34 29 0d 08 d4 14 f2 |ring(B%+|44).....|
|000015f0| 73 61 76 65 28 66 75 6c | 6c 6e 61 6d 65 24 29 0d |save(ful|lname$).|
|00001600| 08 de 21 e7 20 42 25 3f | 33 36 3e 2d 31 20 24 73 |..!. B%?|36>-1 $s|
|00001610| 62 74 65 78 74 25 3d 66 | 75 6c 6c 6e 61 6d 65 24 |btext%=f|ullname$|
|00001620| 0d 08 e8 1e 42 25 21 31 | 32 3d 42 25 21 38 3a 42 |....B%!1|2=B%!8:B|
|00001630| 25 21 31 36 3d 33 3a 21 | 42 25 3d 32 35 36 0d 08 |%!16=3:!|B%=256..|
|00001640| f2 2b c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.+.. "Wi|mp_SendM|
|00001650| 65 73 73 61 67 65 22 2c | 31 38 2c 42 25 2c 42 25 |essage",|18,B%,B%|
|00001660| 21 32 30 2c 42 25 21 32 | 34 0d 08 fc 05 e1 0d 09 |!20,B%!2|4.......|
|00001670| 06 11 dd f2 73 61 76 65 | 28 6e 61 6d 65 24 29 0d |....save|(name$).|
|00001680| 09 10 0d 58 3d ae 20 6e | 61 6d 65 24 0d 09 1a 0d |...X=. n|ame$....|
|00001690| f2 64 72 61 77 68 65 61 | 64 0d 09 24 0d 6f 62 25 |.drawhea|d..$.ob%|
|000016a0| 3d 8f 23 58 2b 34 0d 09 | 2e 15 f2 62 70 75 74 28 |=.#X+4..|...bput(|
|000016b0| 32 29 3a f2 62 70 75 74 | 28 30 29 0d 09 38 0b f2 |2):.bput|(0)..8..|
|000016c0| 70 75 74 62 6f 78 0d 09 | 42 16 f2 62 70 75 74 28 |putbox..|B..bput(|
|000016d0| 2d 31 29 3a f2 62 70 75 | 74 28 30 29 0d 09 4c 2d |-1):.bpu|t(0)..L-|
|000016e0| e7 20 6c 69 6e 65 25 3c | 33 20 f2 62 70 75 74 28 |. line%<|3 .bput(|
|000016f0| 36 34 30 2a 6c 69 6e 65 | 25 29 20 8b 20 f2 62 70 |640*line|%) . .bp|
|00001700| 75 74 28 34 2a 36 34 30 | 29 0d 09 56 0c f2 62 70 |ut(4*640|)..V..bp|
|00001710| 75 74 28 30 29 0d 09 60 | 0f 70 25 3d a4 70 75 74 |ut(0)..`|.p%=.put|
|00001720| 70 61 74 68 0d 09 6a 24 | 65 6e 64 25 3d 8f 23 58 |path..j$|end%=.#X|
|00001730| 3a cf 23 58 3d 6f 62 25 | 3a f2 62 70 75 74 28 70 |:.#X=ob%|:.bput(p|
|00001740| 25 2b 34 2d 6f 62 25 29 | 0d 09 74 0b d9 23 58 3a |%+4-ob%)|..t..#X:|
|00001750| 58 3d 30 0d 09 7e 1e ff | 28 22 53 45 54 54 59 50 |X=0..~..|("SETTYP|
|00001760| 45 20 22 2b 6e 61 6d 65 | 24 2b 22 20 61 66 66 22 |E "+name|$+" aff"|
|00001770| 29 0d 09 88 1c c8 99 20 | 22 57 69 6d 70 5f 43 72 |)...... |"Wimp_Cr|
|00001780| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 2d 31 0d 09 92 |eateMenu|",,-1...|
|00001790| 05 e1 0d 09 9c 0e dd f2 | 64 72 61 77 68 65 61 64 |........|drawhead|
|000017a0| 0d 09 a6 0f d5 23 58 2c | 22 44 72 61 77 22 3b 0d |.....#X,|"Draw";.|
|000017b0| 09 b0 17 f2 62 70 75 74 | 28 32 30 31 29 3a f2 62 |....bput|(201):.b|
|000017c0| 70 75 74 28 30 29 0d 09 | ba 17 d5 23 58 2c 22 44 |put(0)..|...#X,"D|
|000017d0| 72 61 77 4c 6f 74 73 20 | 20 20 20 22 3b 0d 09 c4 |rawLots | ";...|
|000017e0| 0b f2 70 75 74 62 6f 78 | 0d 09 ce 05 e1 0d 09 d8 |..putbox|........|
|000017f0| 0c dd f2 70 75 74 62 6f | 78 0d 09 e2 15 f2 62 70 |...putbo|x.....bp|
|00001800| 75 74 28 30 29 3a f2 62 | 70 75 74 28 30 29 0d 09 |ut(0):.b|put(0)..|
|00001810| ec 34 e7 20 73 68 61 70 | 65 25 3c 39 20 f2 74 72 |.4. shap|e%<9 .tr|
|00001820| 70 75 74 28 32 2a 73 7a | 65 2c 32 2a 73 7a 65 29 |put(2*sz|e,2*sze)|
|00001830| 20 8b 20 f2 74 72 70 75 | 74 28 77 69 64 2c 68 65 | . .trpu|t(wid,he|
|00001840| 69 29 0d 09 f6 05 e1 0d | 0a 00 12 dd f2 74 72 70 |i)......|.....trp|
|00001850| 75 74 28 78 25 2c 79 25 | 29 0d 0a 0a 20 21 64 61 |ut(x%,y%|)... !da|
|00001860| 74 61 25 3d 78 25 2a 32 | 35 36 3a 64 61 74 61 25 |ta%=x%*2|56:data%|
|00001870| 21 34 3d 79 25 2a 32 35 | 36 0d 0a 14 1c c8 99 20 |!4=y%*25|6...... |
|00001880| 22 4f 53 5f 47 42 50 42 | 22 2c 32 2c 58 2c 64 61 |"OS_GBPB|",2,X,da|
|00001890| 74 61 25 2c 38 0d 0a 1e | 05 e1 0d 0a 28 12 dd f2 |ta%,8...|....(...|
|000018a0| 62 70 75 74 28 21 64 61 | 74 61 25 29 0d 0a 32 1c |bput(!da|ta%)..2.|
|000018b0| c8 99 20 22 4f 53 5f 47 | 42 50 42 22 2c 32 2c 58 |.. "OS_G|BPB",2,X|
|000018c0| 2c 64 61 74 61 25 2c 34 | 0d 0a 3c 05 e1 0d 0a 46 |,data%,4|..<....F|
|000018d0| 0d dd a4 70 75 74 70 61 | 74 68 0d 0a 50 0f c8 8e |...putpa|th..P...|
|000018e0| 20 73 68 61 70 65 25 20 | ca 0d 0a 5a 0b c9 20 30 | shape% |...Z.. 0|
|000018f0| 2c 31 2c 32 0d 0a 64 0c | f2 62 70 75 74 28 32 29 |,1,2..d.|.bput(2)|
|00001900| 0d 0a 6e 27 e7 20 73 68 | 61 70 65 25 3d 31 20 f2 |..n'. sh|ape%=1 .|
|00001910| 74 72 70 75 74 28 73 7a | 65 2c 73 7a 65 29 3a f2 |trput(sz|e,sze):.|
|00001920| 62 70 75 74 28 38 29 0d | 0a 78 15 f2 74 72 70 75 |bput(8).|.x..trpu|
|00001930| 74 28 32 2a 73 7a 65 2c | 73 7a 65 29 0d 0a 82 1c |t(2*sze,|sze)....|
|00001940| 6e 75 6d 25 3d 31 2b a8 | 28 61 6e 67 6c 65 2f 39 |num%=1+.|(angle/9|
|00001950| 30 2d 30 2e 30 30 31 29 | 0d 0a 8c 16 61 6e 31 3d |0-0.001)|....an1=|
|00001960| 30 3a 64 61 6e 3d 61 6e | 67 2f 6e 75 6d 25 0d 0a |0:dan=an|g/num%..|
|00001970| 96 30 e3 69 6e 25 3d 31 | b8 6e 75 6d 25 3a f2 61 |.0.in%=1|.num%:.a|
|00001980| 72 63 28 73 7a 65 2c 73 | 7a 65 2c 61 6e 31 2c 64 |rc(sze,s|ze,an1,d|
|00001990| 61 6e 29 3a 61 6e 31 2b | 3d 64 61 6e 3a ed 0d 0a |an):an1+|=dan:...|
|000019a0| a0 0f c8 8e 20 73 68 61 | 70 65 25 20 ca 0d 0a aa |.... sha|pe% ....|
|000019b0| 16 c9 20 31 3a 20 f2 64 | 6f 38 28 73 7a 65 2c 73 |.. 1: .d|o8(sze,s|
|000019c0| 7a 65 29 0d 0a b4 18 c9 | 20 32 3a 20 f2 64 6f 38 |ze).....| 2: .do8|
|000019d0| 28 32 2a 73 7a 65 2c 73 | 7a 65 29 0d 0a be 05 cb |(2*sze,s|ze).....|
|000019e0| 0d 0a c8 07 c9 20 33 0d | 0a d2 1e 61 6e 67 3d 32 |..... 3.|...ang=2|
|000019f0| 2a af 2f 73 69 64 65 73 | 25 3a 61 3d 28 af 2d 61 |*./sides|%:a=(.-a|
|00001a00| 6e 67 29 2f 32 0d 0a dc | 15 e3 20 6a 25 3d 31 20 |ng)/2...|.. j%=1 |
|00001a10| b8 20 73 69 64 65 73 25 | 2b 31 0d 0a e6 1e e7 20 |. sides%|+1..... |
|00001a20| 6a 25 3d 31 20 f2 62 70 | 75 74 28 32 29 20 8b 20 |j%=1 .bp|ut(2) . |
|00001a30| f2 62 70 75 74 28 38 29 | 0d 0a f0 25 f2 74 72 70 |.bput(8)|...%.trp|
|00001a40| 75 74 28 73 7a 65 2b 73 | 7a 65 2a 9b 28 61 29 2c |ut(sze+s|ze*.(a),|
|00001a50| 73 7a 65 2d 73 7a 65 2a | b5 28 61 29 29 0d 0a fa |sze-sze*|.(a))...|
|00001a60| 0a 61 2b 3d 61 6e 67 0d | 0b 04 05 ed 0d 0b 0e 10 |.a+=ang.|........|
|00001a70| c9 20 34 3a f2 6e 6f 6c | 69 6e 65 73 0d 0b 18 07 |. 4:.nol|ines....|
|00001a80| c9 20 35 0d 0b 22 13 e7 | 20 73 69 64 65 73 25 83 |. 5.."..| sides%.|
|00001a90| 20 32 3d 30 20 8c 0d 0b | 2c 1d 61 3d af 2f 32 3a | 2=0 ...|,.a=./2:|
|00001aa0| f2 64 6f 73 74 61 72 28 | 73 69 64 65 73 25 2f 32 |.dostar(|sides%/2|
|00001ab0| 2b 31 29 0d 0b 36 21 61 | 3d af 2f 32 2b 61 6e 67 |+1)..6!a|=./2+ang|
|00001ac0| 3a f2 64 6f 73 74 61 72 | 28 73 69 64 65 73 25 2f |:.dostar|(sides%/|
|00001ad0| 32 2b 31 29 0d 0b 40 05 | cc 0d 0b 4a 21 61 3d 28 |2+1)..@.|...J!a=(|
|00001ae0| af 2d 61 6e 67 29 2f 32 | 3a f2 64 6f 73 74 61 72 |.-ang)/2|:.dostar|
|00001af0| 28 73 69 64 65 73 25 2b | 31 29 0d 0b 54 05 cd 0d |(sides%+|1)..T...|
|00001b00| 0b 5e 07 c9 20 36 0d 0b | 68 18 68 65 69 3d 77 69 |.^.. 6..|h.hei=wi|
|00001b10| 64 2f 32 3a 73 7a 3d 34 | 2a 73 7a 65 2f 33 0d 0b |d/2:sz=4|*sze/3..|
|00001b20| 72 2b f2 64 6f 32 28 73 | 7a 65 2d 68 65 69 2c 32 |r+.do2(s|ze-hei,2|
|00001b30| 2a 73 7a 65 29 3a f2 64 | 6f 38 28 73 7a 65 2b 68 |*sze):.d|o8(sze+h|
|00001b40| 65 69 2c 32 2a 73 7a 65 | 29 0d 0b 7c 2d f2 64 6f |ei,2*sze|)..|-.do|
|00001b50| 38 28 73 7a 65 2b 68 65 | 69 2c 73 7a 2b 68 65 69 |8(sze+he|i,sz+hei|
|00001b60| 29 3a f2 64 6f 38 28 35 | 2a 73 7a 65 2f 33 2c 73 |):.do8(5|*sze/3,s|
|00001b70| 7a 2b 68 65 69 29 0d 0b | 86 2d f2 64 6f 38 28 35 |z+hei)..|.-.do8(5|
|00001b80| 2a 73 7a 65 2f 33 2c 73 | 7a 2d 68 65 69 29 3a f2 |*sze/3,s|z-hei):.|
|00001b90| 64 6f 38 28 73 7a 65 2b | 68 65 69 2c 73 7a 2d 68 |do8(sze+|hei,sz-h|
|00001ba0| 65 69 29 0d 0b 90 23 f2 | 64 6f 38 28 73 7a 65 2b |ei)...#.|do8(sze+|
|00001bb0| 68 65 69 2c 30 29 3a f2 | 64 6f 38 28 73 7a 65 2d |hei,0):.|do8(sze-|
|00001bc0| 68 65 69 2c 30 29 0d 0b | 9a 2b f2 64 6f 38 28 73 |hei,0)..|.+.do8(s|
|00001bd0| 7a 65 2d 68 65 69 2c 73 | 7a 2d 68 65 69 29 3a f2 |ze-hei,s|z-hei):.|
|00001be0| 64 6f 38 28 73 7a 65 2f | 33 2c 73 7a 2d 68 65 69 |do8(sze/|3,sz-hei|
|00001bf0| 29 0d 0b a4 2b f2 64 6f | 38 28 73 7a 65 2f 33 2c |)...+.do|8(sze/3,|
|00001c00| 73 7a 2b 68 65 69 29 3a | f2 64 6f 38 28 73 7a 65 |sz+hei):|.do8(sze|
|00001c10| 2d 68 65 69 2c 73 7a 2b | 68 65 69 29 0d 0b ae 17 |-hei,sz+|hei)....|
|00001c20| f2 64 6f 38 28 73 7a 65 | 2d 68 65 69 2c 32 2a 73 |.do8(sze|-hei,2*s|
|00001c30| 7a 65 29 0d 0b b8 07 c9 | 20 37 0d 0b c2 0d 68 65 |ze).....| 7....he|
|00001c40| 69 3d 77 69 64 2f 32 0d | 0b cc 13 f2 64 6f 32 28 |i=wid/2.|....do2(|
|00001c50| 30 2c 31 2e 36 2a 73 7a | 65 29 0d 0b d6 2c f2 64 |0,1.6*sz|e)...,.d|
|00001c60| 6f 38 28 73 7a 65 2c 2e | 38 2a 73 7a 65 2b 68 65 |o8(sze,.|8*sze+he|
|00001c70| 69 29 3a f2 64 6f 38 28 | 32 2a 73 7a 65 2c 31 2e |i):.do8(|2*sze,1.|
|00001c80| 36 2a 73 7a 65 29 0d 0b | e0 32 f2 64 6f 38 28 32 |6*sze)..|.2.do8(2|
|00001c90| 2a 73 7a 65 2c 31 2e 36 | 2a 73 7a 65 2d 32 2a 68 |*sze,1.6|*sze-2*h|
|00001ca0| 65 69 29 3a f2 64 6f 38 | 28 73 7a 65 2b 68 65 69 |ei):.do8|(sze+hei|
|00001cb0| 2c 2e 38 2a 73 7a 65 29 | 0d 0b ea 23 f2 64 6f 38 |,.8*sze)|...#.do8|
|00001cc0| 28 32 2a 73 7a 65 2c 32 | 2a 68 65 69 29 3a f2 64 |(2*sze,2|*hei):.d|
|00001cd0| 6f 38 28 32 2a 73 7a 65 | 2c 30 29 0d 0b f4 22 f2 |o8(2*sze|,0)...".|
|00001ce0| 64 6f 38 28 73 7a 65 2c | 2e 38 2a 73 7a 65 2d 68 |do8(sze,|.8*sze-h|
|00001cf0| 65 69 29 3a f2 64 6f 38 | 28 30 2c 30 29 0d 0b fe |ei):.do8|(0,0)...|
|00001d00| 26 f2 64 6f 38 28 30 2c | 32 2a 68 65 69 29 3a f2 |&.do8(0,|2*hei):.|
|00001d10| 64 6f 38 28 73 7a 65 2d | 68 65 69 2c 2e 38 2a 73 |do8(sze-|hei,.8*s|
|00001d20| 7a 65 29 0d 0c 08 29 f2 | 64 6f 38 28 30 2c 31 2e |ze)...).|do8(0,1.|
|00001d30| 36 2a 73 7a 65 2d 32 2a | 68 65 69 29 3a f2 64 6f |6*sze-2*|hei):.do|
|00001d40| 38 28 30 2c 31 2e 36 2a | 73 7a 65 29 0d 0c 12 07 |8(0,1.6*|sze)....|
|00001d50| c9 20 38 0d 0c 1c 0d 68 | 65 69 3d 77 69 64 2f 32 |. 8....h|ei=wid/2|
|00001d60| 0d 0c 26 25 f2 64 6f 32 | 28 68 65 69 2c 32 2a 73 |..&%.do2|(hei,2*s|
|00001d70| 7a 65 29 3a f2 64 6f 38 | 28 73 7a 65 2c 73 7a 65 |ze):.do8|(sze,sze|
|00001d80| 2b 68 65 69 29 0d 0c 30 | 29 f2 64 6f 38 28 32 2a |+hei)..0|).do8(2*|
|00001d90| 73 7a 65 2d 68 65 69 2c | 32 2a 73 7a 65 29 3a f2 |sze-hei,|2*sze):.|
|00001da0| 64 6f 38 28 68 65 69 2c | 32 2a 73 7a 65 29 0d 0c |do8(hei,|2*sze)..|
|00001db0| 3a 18 f2 62 70 75 74 28 | 35 29 3a f2 64 6f 32 28 |:..bput(|5):.do2(|
|00001dc0| 68 65 69 2c 30 29 0d 0c | 44 27 f2 64 6f 38 28 73 |hei,0)..|D'.do8(s|
|00001dd0| 7a 65 2c 73 7a 65 2d 68 | 65 69 29 3a f2 64 6f 38 |ze,sze-h|ei):.do8|
|00001de0| 28 32 2a 73 7a 65 2d 68 | 65 69 2c 30 29 0d 0c 4e |(2*sze-h|ei,0)..N|
|00001df0| 18 f2 64 6f 38 28 68 65 | 69 2c 30 29 3a f2 62 70 |..do8(he|i,0):.bp|
|00001e00| 75 74 28 35 29 0d 0c 58 | 2b f2 64 6f 32 28 32 2a |ut(5)..X|+.do2(2*|
|00001e10| 73 7a 65 2c 32 2a 73 7a | 65 2d 68 65 69 29 3a f2 |sze,2*sz|e-hei):.|
|00001e20| 64 6f 38 28 73 7a 65 2b | 68 65 69 2c 73 7a 65 29 |do8(sze+|hei,sze)|
|00001e30| 0d 0c 62 29 f2 64 6f 38 | 28 32 2a 73 7a 65 2c 68 |..b).do8|(2*sze,h|
|00001e40| 65 69 29 3a f2 64 6f 38 | 28 32 2a 73 7a 65 2c 32 |ei):.do8|(2*sze,2|
|00001e50| 2a 73 7a 65 2d 68 65 69 | 29 0d 0c 6c 1e f2 62 70 |*sze-hei|)..l..bp|
|00001e60| 75 74 28 35 29 3a f2 64 | 6f 32 28 30 2c 32 2a 73 |ut(5):.d|o2(0,2*s|
|00001e70| 7a 65 2d 68 65 69 29 0d | 0c 76 21 f2 64 6f 38 28 |ze-hei).|.v!.do8(|
|00001e80| 73 7a 65 2d 68 65 69 2c | 73 7a 65 29 3a f2 64 6f |sze-hei,|sze):.do|
|00001e90| 38 28 30 2c 68 65 69 29 | 0d 0c 80 15 f2 64 6f 38 |8(0,hei)|.....do8|
|00001ea0| 28 30 2c 32 2a 73 7a 65 | 2d 68 65 69 29 0d 0c 8a |(0,2*sze|-hei)...|
|00001eb0| 07 c9 20 39 0d 0c 94 43 | f2 64 6f 32 28 73 7a 65 |.. 9...C|.do2(sze|
|00001ec0| 2c 68 65 69 29 3a f2 64 | 6f 38 28 77 69 64 2d 73 |,hei):.d|o8(wid-s|
|00001ed0| 7a 65 2c 68 65 69 29 3a | f2 61 72 63 28 77 69 64 |ze,hei):|.arc(wid|
|00001ee0| 2d 73 7a 65 2c 68 65 69 | 2d 73 7a 65 2c 33 2a af |-sze,hei|-sze,3*.|
|00001ef0| 2f 32 2c af 2f 32 29 0d | 0c 9e 4b f2 64 6f 38 28 |/2,./2).|..K.do8(|
|00001f00| 77 69 64 2c 73 7a 65 29 | 3a f2 61 72 63 28 77 69 |wid,sze)|:.arc(wi|
|00001f10| 64 2d 73 7a 65 2c 73 7a | 65 2c 30 2c af 2f 32 29 |d-sze,sz|e,0,./2)|
|00001f20| 3a f2 64 6f 38 28 73 7a | 65 2c 30 29 3a f2 61 72 |:.do8(sz|e,0):.ar|
|00001f30| 63 28 73 7a 65 2c 73 7a | 65 2c af 2f 32 2c af 2f |c(sze,sz|e,./2,./|
|00001f40| 32 29 0d 0c a8 2b f2 64 | 6f 38 28 30 2c 68 65 69 |2)...+.d|o8(0,hei|
|00001f50| 2d 73 7a 65 29 3a f2 61 | 72 63 28 73 7a 65 2c 68 |-sze):.a|rc(sze,h|
|00001f60| 65 69 2d 73 7a 65 2c af | 2c af 2f 32 29 0d 0c b2 |ei-sze,.|,./2)...|
|00001f70| 08 c9 20 31 30 0d 0c bc | 23 f2 64 6f 32 28 73 7a |.. 10...|#.do2(sz|
|00001f80| 65 2c 68 65 69 29 3a f2 | 64 6f 38 28 77 69 64 2d |e,hei):.|do8(wid-|
|00001f90| 73 7a 65 2c 68 65 69 29 | 0d 0c c6 18 f2 61 72 63 |sze,hei)|.....arc|
|00001fa0| 28 77 69 64 2c 68 65 69 | 2c af 2c 2d af 2f 32 29 |(wid,hei|,.,-./2)|
|00001fb0| 0d 0c d0 27 f2 64 6f 38 | 28 77 69 64 2c 73 7a 65 |...'.do8|(wid,sze|
|00001fc0| 29 3a f2 61 72 63 28 77 | 69 64 2c 30 2c 2d af 2f |):.arc(w|id,0,-./|
|00001fd0| 32 2c 2d af 2f 32 29 0d | 0c da 20 f2 64 6f 38 28 |2,-./2).|.. .do8(|
|00001fe0| 73 7a 65 2c 30 29 3a f2 | 61 72 63 28 30 2c 30 2c |sze,0):.|arc(0,0,|
|00001ff0| 30 2c 2d af 2f 32 29 0d | 0c e4 28 f2 64 6f 38 28 |0,-./2).|..(.do8(|
|00002000| 30 2c 68 65 69 2d 73 7a | 65 29 3a f2 61 72 63 28 |0,hei-sz|e):.arc(|
|00002010| 30 2c 68 65 69 2c af 2f | 32 2c 2d af 2f 32 29 0d |0,hei,./|2,-./2).|
|00002020| 0c ee 08 c9 20 31 31 0d | 0c f8 31 f2 64 6f 32 28 |.... 11.|..1.do2(|
|00002030| 30 2c 68 65 69 2f 32 29 | 3a f2 64 6f 38 28 77 69 |0,hei/2)|:.do8(wi|
|00002040| 64 2f 32 2c 68 65 69 29 | 3a f2 64 6f 38 28 77 69 |d/2,hei)|:.do8(wi|
|00002050| 64 2c 68 65 69 2f 32 29 | 0d 0d 02 1f f2 64 6f 38 |d,hei/2)|.....do8|
|00002060| 28 77 69 64 2f 32 2c 30 | 29 3a f2 64 6f 38 28 30 |(wid/2,0|):.do8(0|
|00002070| 2c 68 65 69 2f 32 29 0d | 0d 0c 05 cb 0d 0d 16 17 |,hei/2).|........|
|00002080| e7 20 73 68 61 70 65 25 | 3e 30 20 f2 62 70 75 74 |. shape%|>0 .bput|
|00002090| 28 35 29 0d 0d 20 0c f2 | 62 70 75 74 28 30 29 0d |(5).. ..|bput(0).|
|000020a0| 0d 2a 08 3d 8f 23 58 0d | 0d 34 29 dd f2 64 6f 32 |.*.=.#X.|.4)..do2|
|000020b0| 28 78 25 2c 79 25 29 3a | f2 62 70 75 74 28 32 29 |(x%,y%):|.bput(2)|
|000020c0| 3a f2 74 72 70 75 74 28 | 78 25 2c 79 25 29 3a e1 |:.trput(|x%,y%):.|
|000020d0| 0d 0d 3e 29 dd f2 64 6f | 38 28 78 25 2c 79 25 29 |..>)..do|8(x%,y%)|
|000020e0| 3a f2 62 70 75 74 28 38 | 29 3a f2 74 72 70 75 74 |:.bput(8|):.trput|
|000020f0| 28 78 25 2c 79 25 29 3a | e1 0d 0d 48 0d dd f2 6e |(x%,y%):|...H...n|
|00002100| 6f 6c 69 6e 65 73 0d 0d | 52 11 61 3d 28 33 2a af |olines..|R.a=(3*.|
|00002110| 2d 61 6e 67 29 2f 32 0d | 0d 5c 2f f2 64 6f 32 28 |-ang)/2.|.\/.do2(|
|00002120| 73 7a 65 2b 73 7a 65 2a | 9b 28 61 2d 61 6e 67 2f |sze+sze*|.(a-ang/|
|00002130| 32 29 2c 73 7a 65 2d 73 | 7a 65 2a b5 28 61 2d 61 |2),sze-s|ze*.(a-a|
|00002140| 6e 67 2f 32 29 29 0d 0d | 66 13 e3 20 6a 25 3d 31 |ng/2))..|f.. j%=1|
|00002150| 20 b8 20 73 69 64 65 73 | 25 0d 0d 70 27 f2 64 6f | . sides|%..p'.do|
|00002160| 38 28 73 7a 65 2b 69 6e | 6e 65 72 2a 9b 28 61 29 |8(sze+in|ner*.(a)|
|00002170| 2c 73 7a 65 2d 69 6e 6e | 65 72 2a b5 28 61 29 29 |,sze-inn|er*.(a))|
|00002180| 0d 0d 7a 2f f2 64 6f 38 | 28 73 7a 65 2b 73 7a 65 |..z/.do8|(sze+sze|
|00002190| 2a 9b 28 61 2b 61 6e 67 | 2f 32 29 2c 73 7a 65 2d |*.(a+ang|/2),sze-|
|000021a0| 73 7a 65 2a b5 28 61 2b | 61 6e 67 2f 32 29 29 0d |sze*.(a+|ang/2)).|
|000021b0| 0d 84 0a 61 2b 3d 61 6e | 67 0d 0d 8e 05 ed 0d 0d |...a+=an|g.......|
|000021c0| 98 05 e1 0d 0d a2 10 dd | f2 64 6f 73 74 61 72 28 |........|.dostar(|
|000021d0| 6b 25 29 0d 0d ac 0f e3 | 20 6a 25 3d 31 20 b8 20 |k%).....| j%=1 . |
|000021e0| 6b 25 0d 0d b6 1e e7 20 | 6a 25 3d 31 20 f2 62 70 |k%..... |j%=1 .bp|
|000021f0| 75 74 28 32 29 20 8b 20 | f2 62 70 75 74 28 38 29 |ut(2) . |.bput(8)|
|00002200| 0d 0d c0 25 f2 74 72 70 | 75 74 28 73 7a 65 2b 73 |...%.trp|ut(sze+s|
|00002210| 7a 65 2a 9b 28 61 29 2c | 73 7a 65 2d 73 7a 65 2a |ze*.(a),|sze-sze*|
|00002220| b5 28 61 29 29 0d 0d ca | 0c 61 2b 3d 32 2a 61 6e |.(a))...|.a+=2*an|
|00002230| 67 0d 0d d4 05 ed 0d 0d | de 05 e1 0d 0d e8 17 dd |g.......|........|
|00002240| f2 61 72 63 28 78 63 2c | 79 63 2c 61 6e 67 2c 64 |.arc(xc,|yc,ang,d|
|00002250| 61 29 0d 0d f2 21 61 6e | 67 31 3d 61 6e 67 2b 64 |a)...!an|g1=ang+d|
|00002260| 61 2f 33 3a 61 6e 67 32 | 3d 61 6e 67 2b 32 2a 64 |a/3:ang2|=ang+2*d|
|00002270| 61 2f 33 0d 0d fc 25 78 | 30 3d 78 63 2b 73 7a 65 |a/3...%x|0=xc+sze|
|00002280| 2a 9b 28 61 6e 67 29 3a | 79 30 3d 79 63 2d 73 7a |*.(ang):|y0=yc-sz|
|00002290| 65 2a b5 28 61 6e 67 29 | 0d 0e 06 27 78 31 3d 78 |e*.(ang)|...'x1=x|
|000022a0| 63 2b 73 7a 65 2a 9b 28 | 61 6e 67 31 29 3a 79 31 |c+sze*.(|ang1):y1|
|000022b0| 3d 79 63 2d 73 7a 65 2a | b5 28 61 6e 67 31 29 0d |=yc-sze*|.(ang1).|
|000022c0| 0e 10 27 78 32 3d 78 63 | 2b 73 7a 65 2a 9b 28 61 |..'x2=xc|+sze*.(a|
|000022d0| 6e 67 32 29 3a 79 32 3d | 79 63 2d 73 7a 65 2a b5 |ng2):y2=|yc-sze*.|
|000022e0| 28 61 6e 67 32 29 0d 0e | 1a 2b 78 33 3d 78 63 2b |(ang2)..|.+x3=xc+|
|000022f0| 73 7a 65 2a 9b 28 61 6e | 67 2b 64 61 29 3a 79 33 |sze*.(an|g+da):y3|
|00002300| 3d 79 63 2d 73 7a 65 2a | b5 28 61 6e 67 2b 64 61 |=yc-sze*|.(ang+da|
|00002310| 29 0d 0e 24 1e 61 3d 2d | 35 2a 78 30 2f 36 2d 31 |)..$.a=-|5*x0/6-1|
|00002320| 2e 35 2a 78 32 2b 33 2a | 78 31 2b 78 33 2f 33 0d |.5*x2+3*|x1+x3/3.|
|00002330| 0e 2e 1e 62 3d 2d 35 2a | 79 30 2f 36 2d 31 2e 35 |...b=-5*|y0/6-1.5|
|00002340| 2a 79 32 2b 33 2a 79 31 | 2b 79 33 2f 33 0d 0e 38 |*y2+3*y1|+y3/3..8|
|00002350| 1e 70 3d 2d 35 2a 78 33 | 2f 36 2d 31 2e 35 2a 78 |.p=-5*x3|/6-1.5*x|
|00002360| 31 2b 33 2a 78 32 2b 78 | 30 2f 33 0d 0e 42 1e 71 |1+3*x2+x|0/3..B.q|
|00002370| 3d 2d 35 2a 79 33 2f 36 | 2d 31 2e 35 2a 79 31 2b |=-5*y3/6|-1.5*y1+|
|00002380| 33 2a 79 32 2b 79 30 2f | 33 0d 0e 4c 32 f2 62 70 |3*y2+y0/|3..L2.bp|
|00002390| 75 74 28 36 29 3a f2 74 | 72 70 75 74 28 61 2c 62 |ut(6):.t|rput(a,b|
|000023a0| 29 3a f2 74 72 70 75 74 | 28 70 2c 71 29 3a f2 74 |):.trput|(p,q):.t|
|000023b0| 72 70 75 74 28 78 33 2c | 79 33 29 0d 0e 56 05 e1 |rput(x3,|y3)..V..|
|000023c0| 0d 0e 60 0d dd f2 6d 61 | 69 6e 62 6f 78 0d 0e 6a |..`...ma|inbox..j|
|000023d0| 74 de 20 74 65 78 74 25 | 20 31 35 30 2c 73 70 72 |t. text%| 150,spr|
|000023e0| 25 20 31 35 2c 76 61 6c | 25 20 38 2c 64 75 6d 25 |% 15,val|% 8,dum%|
|000023f0| 20 32 2c 62 6f 72 64 25 | 20 36 2c 74 65 78 74 25 | 2,bord%| 6,text%|
|00002400| 28 33 29 2c 69 6e 64 25 | 28 33 29 2c 74 65 78 74 |(3),ind%|(3),text|
|00002410| 31 25 20 31 30 2c 74 65 | 78 74 32 25 20 31 30 2c |1% 10,te|xt2% 10,|
|00002420| 74 65 78 74 33 25 20 31 | 30 2c 69 6e 64 31 25 20 |text3% 1|0,ind1% |
|00002430| 38 2c 69 6e 64 32 25 20 | 38 2c 69 6e 64 33 25 20 |8,ind2% |8,ind3% |
|00002440| 38 0d 0e 74 3d 74 65 78 | 74 25 28 29 3d 30 2c 74 |8..t=tex|t%()=0,t|
|00002450| 65 78 74 31 25 2c 74 65 | 78 74 32 25 2c 74 65 78 |ext1%,te|xt2%,tex|
|00002460| 74 33 25 3a 69 6e 64 25 | 28 29 3d 30 2c 69 6e 64 |t3%:ind%|()=0,ind|
|00002470| 31 25 2c 69 6e 64 32 25 | 2c 69 6e 64 33 25 0d 0e |1%,ind2%|,ind3%..|
|00002480| 7e 36 24 73 70 72 25 3d | 22 53 6f 66 66 2c 6f 6e |~6$spr%=|"Soff,on|
|00002490| 22 3a 24 76 61 6c 25 3d | 22 41 30 2d 39 2e 22 3a |":$val%=|"A0-9.":|
|000024a0| 24 64 75 6d 25 3d 22 22 | 3a 24 62 6f 72 64 25 3d |$dum%=""|:$bord%=|
|000024b0| 22 7a 31 22 0d 0e 88 3c | 6d 62 78 25 3d a4 63 72 |"z1"...<|mbx%=.cr|
|000024c0| 65 61 74 65 28 26 37 31 | 2c 33 30 30 2c 32 30 30 |eate(&71|,300,200|
|000024d0| 2c 38 30 34 2c 34 32 30 | 2c 26 38 37 30 30 30 30 |,804,420|,&870000|
|000024e0| 30 46 2c 22 44 72 61 77 | 4c 6f 74 73 22 2c b9 29 |0F,"Draw|Lots",.)|
|000024f0| 0d 0e 92 11 6a 25 3d 74 | 65 78 74 25 3a f7 20 2b |....j%=t|ext%:. +|
|00002500| 35 0d 0e 9c 38 f2 69 63 | 6f 6e 28 6d 62 78 25 2c |5...8.ic|on(mbx%,|
|00002510| 31 32 2c 2d 32 32 38 2c | 37 37 36 2c 32 31 36 2c |12,-228,|776,216,|
|00002520| 26 37 30 30 30 31 30 31 | 2c 22 22 2c 64 75 6d 25 |&7000101|,"",dum%|
|00002530| 2c 62 6f 72 64 25 2c 31 | 29 0d 0e a6 14 e3 20 69 |,bord%,1|)..... i|
|00002540| 25 3d 30 b8 6d 61 78 73 | 68 61 70 65 25 0d 0e b0 |%=0.maxs|hape%...|
|00002550| 09 f3 20 24 6a 25 0d 0e | ba 4e f2 69 63 6f 6e 28 |.. $j%..|.N.icon(|
|00002560| 6d 62 78 25 2c 32 34 2b | 32 35 32 2a 28 69 25 83 |mbx%,24+|252*(i%.|
|00002570| 33 29 2c 2d 35 32 2a 28 | 69 25 81 33 29 2d 36 30 |3),-52*(|i%.3)-60|
|00002580| 2c 32 34 38 2c 34 34 2c | 26 31 37 30 31 42 31 31 |,248,44,|&1701B11|
|00002590| 33 2c 22 22 2c 6a 25 2c | 73 70 72 25 2c a9 24 6a |3,"",j%,|spr%,.$j|
|000025a0| 25 2b 31 29 0d 0e c4 0e | 6a 25 2b 3d a9 24 6a 25 |%+1)....|j%+=.$j%|
|000025b0| 2b 31 0d 0e ce 05 ed 0d | 0e d8 16 f2 73 65 74 69 |+1......|....seti|
|000025c0| 63 6f 6e 28 6d 62 78 25 | 2c 34 2c 31 29 0d 0e e2 |con(mbx%|,4,1)...|
|000025d0| 0e 62 61 73 65 25 3d 2d | 32 34 38 0d 0e ec 3b f2 |.base%=-|248...;.|
|000025e0| 69 63 6f 6e 28 6d 62 78 | 25 2c 31 32 2c 62 61 73 |icon(mbx|%,12,bas|
|000025f0| 65 25 2d 36 38 2c 35 34 | 38 2c 36 30 2c 26 37 30 |e%-68,54|8,60,&70|
|00002600| 30 30 31 30 31 2c 22 22 | 2c 64 75 6d 25 2c 62 6f |00101,""|,dum%,bo|
|00002610| 72 64 25 2c 31 29 0d 0e | f6 40 f2 69 63 6f 6e 28 |rd%,1)..|.@.icon(|
|00002620| 6d 62 78 25 2c 31 32 2c | 62 61 73 65 25 2d 35 36 |mbx%,12,|base%-56|
|00002630| 2c 31 37 36 2c 34 34 2c | 26 31 37 30 30 30 30 30 |,176,44,|&1700000|
|00002640| 31 2c 22 4c 69 6e 65 20 | 57 69 64 74 68 3a 22 2c |1,"Line |Width:",|
|00002650| 30 2c 30 2c 30 29 0d 0f | 00 10 6f 62 25 3d 62 61 |0,0,0)..|..ob%=ba|
|00002660| 73 65 25 2d 36 38 0d 0f | 0a 09 f3 20 24 6a 25 0d |se%-68..|... $j%.|
|00002670| 0f 14 0a 70 25 3d 32 30 | 30 0d 0f 1e 38 f2 69 63 |...p%=20|0...8.ic|
|00002680| 6f 6e 28 6d 62 78 25 2c | 70 25 2c 62 61 73 65 25 |on(mbx%,|p%,base%|
|00002690| 2d 35 36 2c 37 36 2c 34 | 34 2c 26 31 37 30 32 42 |-56,76,4|4,&1702B|
|000026a0| 31 31 33 2c 22 22 2c 6a | 25 2c 73 70 72 25 2c 35 |113,"",j|%,spr%,5|
|000026b0| 29 0d 0f 28 16 6a 25 2b | 3d a9 24 6a 25 2b 31 3a |)..(.j%+|=.$j%+1:|
|000026c0| 70 25 2b 3d 31 32 38 0d | 0f 32 0c e3 20 69 25 3d |p%+=128.|.2.. i%=|
|000026d0| 31 b8 33 0d 0f 3c 09 f3 | 20 24 6a 25 0d 0f 46 38 |1.3..<..| $j%..F8|
|000026e0| f2 69 63 6f 6e 28 6d 62 | 78 25 2c 70 25 2c 62 61 |.icon(mb|x%,p%,ba|
|000026f0| 73 65 25 2d 35 36 2c 34 | 38 2c 34 34 2c 26 31 37 |se%-56,4|8,44,&17|
|00002700| 30 32 42 31 31 33 2c 22 | 22 2c 6a 25 2c 73 70 72 |02B113,"|",j%,spr|
|00002710| 25 2c 32 29 0d 0f 50 15 | 6a 25 2b 3d a9 24 6a 25 |%,2)..P.|j%+=.$j%|
|00002720| 2b 31 3a 70 25 2b 3d 37 | 36 0d 0f 5a 05 ed 0d 0f |+1:p%+=7|6..Z....|
|00002730| 64 17 f2 73 65 74 69 63 | 6f 6e 28 6d 62 78 25 2c |d..setic|on(mbx%,|
|00002740| 31 35 2c 31 29 0d 0f 6e | 10 62 61 73 65 25 2d 3d |15,1)..n|.base%-=|
|00002750| 38 38 2b 35 32 0d 0f 78 | 09 6c 25 3d 31 32 0d 0f |88+52..x|.l%=12..|
|00002760| 82 3b f2 69 63 6f 6e 28 | 6d 62 78 25 2c 31 32 2c |.;.icon(|mbx%,12,|
|00002770| 62 61 73 65 25 2d 31 36 | 2c 37 37 36 2c 36 30 2c |base%-16|,776,60,|
|00002780| 26 37 30 30 30 31 30 31 | 2c 22 22 2c 64 75 6d 25 |&7000101|,"",dum%|
|00002790| 2c 62 6f 72 64 25 2c 33 | 29 0d 0f 8c 0b e3 69 25 |,bord%,3|).....i%|
|000027a0| 3d 31 b8 33 0d 0f 96 3d | f2 69 63 6f 6e 28 6d 62 |=1.3...=|.icon(mb|
|000027b0| 78 25 2c 6c 25 2c 62 61 | 73 65 25 2d 38 2c 31 36 |x%,l%,ba|se%-8,16|
|000027c0| 30 2c 34 34 2c 26 31 37 | 30 30 30 33 30 31 2c 22 |0,44,&17|000301,"|
|000027d0| 22 2c 74 65 78 74 25 28 | 69 25 29 2c 30 2c 31 30 |",text%(|i%),0,10|
|000027e0| 29 0d 0f a0 40 f2 69 63 | 6f 6e 28 6d 62 78 25 2c |)...@.ic|on(mbx%,|
|000027f0| 6c 25 2b 31 36 30 2c 62 | 61 73 65 25 2d 38 2c 39 |l%+160,b|ase%-8,9|
|00002800| 36 2c 34 34 2c 26 37 30 | 30 46 33 32 35 2c 22 22 |6,44,&70|0F325,""|
|00002810| 2c 69 6e 64 25 28 69 25 | 29 2c 76 61 6c 25 2c 38 |,ind%(i%|),val%,8|
|00002820| 29 0d 0f aa 1c e7 20 69 | 25 3d 31 20 6c 25 2b 3d |)..... i|%=1 l%+=|
|00002830| 32 35 36 20 8b 20 6c 25 | 2b 3d 32 34 30 0d 0f b4 |256 . l%|+=240...|
|00002840| 05 ed 0d 0f be 37 f2 69 | 63 6f 6e 28 6d 62 78 25 |.....7.i|con(mbx%|
|00002850| 2c 35 38 30 2c 6f 62 25 | 2c 32 30 38 2c 36 30 2c |,580,ob%|,208,60,|
|00002860| 26 37 30 30 30 31 30 31 | 2c 22 22 2c 64 75 6d 25 |&7000101|,"",dum%|
|00002870| 2c 62 6f 72 64 25 2c 31 | 29 0d 0f c8 12 24 6a 25 |,bord%,1|)....$j%|
|00002880| 3d 22 49 6e 22 3a 64 25 | 3d 39 32 0d 0f d2 3a f2 |="In":d%|=92...:.|
|00002890| 69 63 6f 6e 28 6d 62 78 | 25 2c 35 38 38 2c 6f 62 |icon(mbx|%,588,ob|
|000028a0| 25 2b 31 32 2c 64 25 2c | 34 34 2c 26 31 37 30 33 |%+12,d%,|44,&1703|
|000028b0| 42 31 31 33 2c 22 22 2c | 6a 25 2c 73 70 72 25 2c |B113,"",|j%,spr%,|
|000028c0| a9 24 6a 25 29 0d 0f dc | 12 6a 25 2b 3d 33 3a 24 |.$j%)...|.j%+=3:$|
|000028d0| 6a 25 3d 22 43 6d 22 0d | 0f e6 3d f2 69 63 6f 6e |j%="Cm".|..=.icon|
|000028e0| 28 6d 62 78 25 2c 35 39 | 34 2b 64 25 2c 6f 62 25 |(mbx%,59|4+d%,ob%|
|000028f0| 2b 31 32 2c 64 25 2c 34 | 34 2c 26 31 37 30 33 42 |+12,d%,4|4,&1703B|
|00002900| 31 31 33 2c 22 22 2c 6a | 25 2c 73 70 72 25 2c a9 |113,"",j|%,spr%,.|
|00002910| 24 6a 25 29 0d 0f f0 17 | f2 73 65 74 69 63 6f 6e |$j%)....|.seticon|
|00002920| 28 6d 62 78 25 2c 32 37 | 2c 31 29 0d 0f fa 0d f2 |(mbx%,27|,1).....|
|00002930| 73 65 74 69 63 6f 6e 73 | 0d 10 04 05 e1 0d 10 0e |seticons|........|
|00002940| 6d dc 20 41 72 63 2c 53 | 65 63 74 6f 72 2c 53 65 |m. Arc,S|ector,Se|
|00002950| 67 6d 65 6e 74 2c 50 6f | 6c 79 67 6f 6e 2c 53 74 |gment,Po|lygon,St|
|00002960| 61 72 2c 4c 69 6e 65 20 | 53 74 61 72 2c 47 65 6f |ar,Line |Star,Geo|
|00002970| 72 67 65 20 43 72 6f 73 | 73 2c 41 6e 64 72 65 77 |rge Cros|s,Andrew|
|00002980| 43 72 6f 73 73 2c 4d 61 | 6c 74 65 73 65 43 72 6f |Cross,Ma|lteseCro|
|00002990| 73 73 2c 43 75 72 76 65 | 64 20 42 6f 78 2c 43 75 |ss,Curve|d Box,Cu|
|000029a0| 74 20 42 6f 78 2c 4b 69 | 74 65 0d 10 18 10 dc 20 |t Box,Ki|te..... |
|000029b0| 54 68 69 6e 2c 31 2c 32 | 2c 34 0d 10 22 17 dd f2 |Thin,1,2|,4.."...|
|000029c0| 73 65 74 69 63 6f 6e 28 | 68 25 2c 69 25 2c 76 25 |seticon(|h%,i%,v%|
|000029d0| 29 0d 10 2c 2a 21 42 25 | 3d 68 25 3a 42 25 21 34 |)..,*!B%|=h%:B%!4|
|000029e0| 3d 69 25 3a 42 25 21 38 | 3d 76 25 3c 3c 32 31 3a |=i%:B%!8|=v%<<21:|
|000029f0| 42 25 21 31 32 3d 31 3c | 3c 32 31 0d 10 36 1e c8 |B%!12=1<|<21..6..|
|00002a00| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00002a10| 74 61 74 65 22 2c 2c 42 | 25 0d 10 40 05 e1 0d 10 |tate",,B|%..@....|
|00002a20| 4a 19 dd f2 73 68 61 64 | 65 69 63 6f 6e 28 68 25 |J...shad|eicon(h%|
|00002a30| 2c 69 25 2c 76 25 29 0d | 10 54 2d 21 42 25 3d 68 |,i%,v%).|.T-!B%=h|
|00002a40| 25 3a 42 25 21 34 3d 69 | 25 3a 42 25 21 38 3d 94 |%:B%!4=i|%:B%!8=.|
|00002a50| 28 76 25 29 3c 3c 32 32 | 3a 42 25 21 31 32 3d 31 |(v%)<<22|:B%!12=1|
|00002a60| 3c 3c 32 32 0d 10 5e 1e | c8 99 20 22 57 69 6d 70 |<<22..^.|.. "Wimp|
|00002a70| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00002a80| 42 25 0d 10 68 05 e1 0d | 10 72 0c dd f2 72 65 64 |B%..h...|.r...red|
|00002a90| 72 61 77 0d 10 7c 27 c8 | 99 20 22 57 69 6d 70 5f |raw..|'.|. "Wimp_|
|00002aa0| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 22 2c 2c 42 |RedrawWi|ndow",,B|
|00002ab0| 25 20 20 b8 20 6d 6f 72 | 65 25 0d 10 86 0c c8 95 |% . mor|e%......|
|00002ac0| 20 6d 6f 72 65 25 0d 10 | 90 1e c8 99 20 22 57 69 | more%..|.... "Wi|
|00002ad0| 6d 70 5f 42 6f 72 64 65 | 72 57 69 6e 64 6f 77 22 |mp_Borde|rWindow"|
|00002ae0| 2c 2c 42 25 0d 10 9a 27 | c8 99 20 22 57 69 6d 70 |,,B%...'|.. "Wimp|
|00002af0| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00002b00| 42 25 20 20 b8 20 6d 6f | 72 65 25 0d 10 a4 05 ce |B% . mo|re%.....|
|00002b10| 0d 10 ae 05 e1 0d 10 b8 | 0f dd f2 72 65 61 64 69 |........|...readi|
|00002b20| 63 6f 6e 73 0d 10 c2 20 | 64 24 3d 24 73 62 74 65 |cons... |d$=$sbte|
|00002b30| 78 74 25 3a e7 20 c0 64 | 24 29 3d 22 3c 22 20 64 |xt%:. .d|$)="<" d|
|00002b40| 24 3d 22 22 0d 10 cc 0f | 69 25 3d a7 64 24 2c 22 |$=""....|i%=.d$,"|
|00002b50| 2e 22 29 0d 10 d6 29 e7 | 20 69 25 3e 30 20 24 73 |.")...).| i%>0 $s|
|00002b60| 62 74 65 78 74 25 3d c0 | 64 24 2c 69 25 29 20 8b |btext%=.|d$,i%) .|
|00002b70| 20 24 73 62 74 65 78 74 | 25 3d 22 22 0d 10 e0 28 | $sbtext|%=""...(|
|00002b80| e3 20 69 25 3d 31 b8 33 | 3a 76 61 72 24 28 73 68 |. i%=1.3|:var$(sh|
|00002b90| 61 70 65 25 2c 69 25 29 | 3d 24 69 6e 64 25 28 69 |ape%,i%)|=$ind%(i|
|00002ba0| 25 29 3a ed 0d 10 ea 0f | c8 8e 20 73 68 61 70 65 |%):.....|.. shape|
|00002bb0| 25 20 ca 0d 10 f4 0b c9 | 20 30 2c 31 2c 32 0d 10 |% ......| 0,1,2..|
|00002bc0| fe 34 73 7a 65 3d 73 63 | 61 6c 65 2a bb 24 69 6e |.4sze=sc|ale*.$in|
|00002bd0| 64 25 28 31 29 3a e7 73 | 7a 65 3d 30 20 73 7a 65 |d%(1):.s|ze=0 sze|
|00002be0| 3d 73 63 61 6c 65 3a f2 | 6d 6f 64 28 31 2c 22 31 |=scale:.|mod(1,"1|
|00002bf0| 22 29 0d 11 08 13 61 6e | 67 6c 65 3d bb 24 69 6e |")....an|gle=.$in|
|00002c00| 64 25 28 32 29 0d 11 12 | 42 e7 20 94 28 61 6e 67 |d%(2)...|B. .(ang|
|00002c10| 6c 65 29 3e 33 36 30 20 | 61 6e 67 6c 65 3d b4 28 |le)>360 |angle=.(|
|00002c20| 61 6e 67 6c 65 29 2a 28 | 94 28 61 6e 67 6c 65 29 |angle)*(|.(angle)|
|00002c30| 83 33 36 30 29 3a f2 6d | 6f 64 28 32 2c c3 61 6e |.360):.m|od(2,.an|
|00002c40| 67 6c 65 2c 32 32 29 0d | 11 1c 26 e7 20 94 28 61 |gle,22).|..&. .(a|
|00002c50| 6e 67 6c 65 29 3d 30 20 | 61 6e 67 6c 65 3d 36 30 |ngle)=0 |angle=60|
|00002c60| 3a f2 6d 6f 64 28 32 2c | 22 36 30 22 29 0d 11 26 |:.mod(2,|"60")..&|
|00002c70| 10 61 6e 67 3d b2 28 61 | 6e 67 6c 65 29 0d 11 30 |.ang=.(a|ngle)..0|
|00002c80| 18 24 73 62 74 65 78 74 | 25 2b 3d c0 c3 61 6e 67 |.$sbtext|%+=..ang|
|00002c90| 6c 65 2c 36 29 0d 11 3a | 07 c9 20 33 0d 11 44 34 |le,6)..:|.. 3..D4|
|00002ca0| 73 7a 65 3d 73 63 61 6c | 65 2a bb 24 69 6e 64 25 |sze=scal|e*.$ind%|
|00002cb0| 28 31 29 3a e7 73 7a 65 | 3d 30 20 73 7a 65 3d 73 |(1):.sze|=0 sze=s|
|00002cc0| 63 61 6c 65 3a f2 6d 6f | 64 28 31 2c 22 31 22 29 |cale:.mo|d(1,"1")|
|00002cd0| 0d 11 4e 38 73 69 64 65 | 73 25 3d bb 24 69 6e 64 |..N8side|s%=.$ind|
|00002ce0| 25 28 32 29 3a e7 20 73 | 69 64 65 73 25 3c 33 20 |%(2):. s|ides%<3 |
|00002cf0| 73 69 64 65 73 25 3d 33 | 3a f2 6d 6f 64 28 32 2c |sides%=3|:.mod(2,|
|00002d00| c3 73 69 64 65 73 25 29 | 0d 11 58 1b 73 7a 65 3d |.sides%)|..X.sze=|
|00002d10| 30 2e 35 2a 73 7a 65 2f | b5 28 af 2f 73 69 64 65 |0.5*sze/|.(./side|
|00002d20| 73 25 29 0d 11 62 15 24 | 73 62 74 65 78 74 25 2b |s%)..b.$|sbtext%+|
|00002d30| 3d c3 73 69 64 65 73 25 | 0d 11 6c 07 c9 20 34 0d |=.sides%|..l.. 4.|
|00002d40| 11 76 34 73 7a 65 3d 73 | 63 61 6c 65 2a bb 24 69 |.v4sze=s|cale*.$i|
|00002d50| 6e 64 25 28 32 29 3a e7 | 73 7a 65 3d 30 20 73 7a |nd%(2):.|sze=0 sz|
|00002d60| 65 3d 73 63 61 6c 65 3a | f2 6d 6f 64 28 32 2c 22 |e=scale:|.mod(2,"|
|00002d70| 31 22 29 0d 11 80 34 73 | 69 64 65 73 25 3d bb 24 |1")...4s|ides%=.$|
|00002d80| 69 6e 64 25 28 31 29 3a | e7 20 73 69 64 65 73 25 |ind%(1):|. sides%|
|00002d90| 3c 34 20 73 69 64 65 73 | 25 3d 34 3a f2 6d 6f 64 |<4 sides|%=4:.mod|
|00002da0| 28 31 2c 22 34 22 29 0d | 11 8a 13 69 6e 6e 65 72 |(1,"4").|...inner|
|00002db0| 3d bb 24 69 6e 64 25 28 | 33 29 0d 11 94 38 e7 20 |=.$ind%(|3)...8. |
|00002dc0| 69 6e 6e 65 72 2a 73 63 | 61 6c 65 3e 73 7a 65 20 |inner*sc|ale>sze |
|00002dd0| 69 6e 6e 65 72 3d 30 2e | 35 2a 73 7a 65 2f 73 63 |inner=0.|5*sze/sc|
|00002de0| 61 6c 65 3a f2 6d 6f 64 | 28 33 2c c3 69 6e 6e 65 |ale:.mod|(3,.inne|
|00002df0| 72 29 0d 11 9e 15 69 6e | 6e 65 72 3d 73 63 61 6c |r)....in|ner=scal|
|00002e00| 65 2a 69 6e 6e 65 72 0d | 11 a8 12 61 6e 67 3d 32 |e*inner.|...ang=2|
|00002e10| 2a af 2f 73 69 64 65 73 | 25 0d 11 b2 15 24 73 62 |*./sides|%....$sb|
|00002e20| 74 65 78 74 25 2b 3d c3 | 73 69 64 65 73 25 0d 11 |text%+=.|sides%..|
|00002e30| bc 07 c9 20 35 0d 11 c6 | 34 73 7a 65 3d 73 63 61 |... 5...|4sze=sca|
|00002e40| 6c 65 2a bb 24 69 6e 64 | 25 28 32 29 3a e7 73 7a |le*.$ind|%(2):.sz|
|00002e50| 65 3d 30 20 73 7a 65 3d | 73 63 61 6c 65 3a f2 6d |e=0 sze=|scale:.m|
|00002e60| 6f 64 28 32 2c 22 31 22 | 29 0d 11 d0 34 73 69 64 |od(2,"1"|)...4sid|
|00002e70| 65 73 25 3d bb 24 69 6e | 64 25 28 31 29 3a e7 20 |es%=.$in|d%(1):. |
|00002e80| 73 69 64 65 73 25 3c 33 | 20 73 69 64 65 73 25 3d |sides%<3| sides%=|
|00002e90| 33 3a f2 6d 6f 64 28 31 | 2c 22 33 22 29 0d 11 da |3:.mod(1|,"3")...|
|00002ea0| 12 61 6e 67 3d 32 2a af | 2f 73 69 64 65 73 25 0d |.ang=2*.|/sides%.|
|00002eb0| 11 e4 15 24 73 62 74 65 | 78 74 25 2b 3d c3 73 69 |...$sbte|xt%+=.si|
|00002ec0| 64 65 73 25 0d 11 ee 0b | c9 20 36 2c 37 2c 38 0d |des%....|. 6,7,8.|
|00002ed0| 11 f8 34 73 7a 65 3d 73 | 63 61 6c 65 2a bb 24 69 |..4sze=s|cale*.$i|
|00002ee0| 6e 64 25 28 31 29 3a e7 | 73 7a 65 3d 30 20 73 7a |nd%(1):.|sze=0 sz|
|00002ef0| 65 3d 73 63 61 6c 65 3a | f2 6d 6f 64 28 31 2c 22 |e=scale:|.mod(1,"|
|00002f00| 31 22 29 0d 12 02 11 77 | 69 64 3d bb 24 69 6e 64 |1")....w|id=.$ind|
|00002f10| 25 28 32 29 0d 12 0c 2e | e7 20 73 7a 65 3c 73 63 |%(2)....|. sze<sc|
|00002f20| 61 6c 65 2a 77 69 64 20 | 77 69 64 3d 73 7a 65 2f |ale*wid |wid=sze/|
|00002f30| 73 63 61 6c 65 3a f2 6d | 6f 64 28 32 2c c3 77 69 |scale:.m|od(2,.wi|
|00002f40| 64 29 0d 12 16 11 77 69 | 64 3d 73 63 61 6c 65 2a |d)....wi|d=scale*|
|00002f50| 77 69 64 0d 12 20 0a c9 | 20 39 2c 31 30 0d 12 2a |wid.. ..| 9,10..*|
|00002f60| 2b 68 65 69 3d 73 63 61 | 6c 65 2a bb 24 69 6e 64 |+hei=sca|le*.$ind|
|00002f70| 25 28 31 29 3a 73 63 61 | 6c 65 2a 77 69 64 3d bb |%(1):sca|le*wid=.|
|00002f80| 24 69 6e 64 25 28 32 29 | 0d 12 34 17 73 7a 65 3d |$ind%(2)|..4.sze=|
|00002f90| 73 63 61 6c 65 2a bb 24 | 69 6e 64 25 28 33 29 0d |scale*.$|ind%(3).|
|00002fa0| 12 3e 08 c9 20 31 31 0d | 12 48 2b 68 65 69 3d bb |.>.. 11.|.H+hei=.|
|00002fb0| 24 69 6e 64 25 28 32 29 | 3a e7 20 68 65 69 3d 30 |$ind%(2)|:. hei=0|
|00002fc0| 20 68 65 69 3d 31 3a f2 | 6d 6f 64 28 32 2c 22 31 | hei=1:.|mod(2,"1|
|00002fd0| 22 29 0d 12 52 2b 77 69 | 64 3d bb 24 69 6e 64 25 |")..R+wi|d=.$ind%|
|00002fe0| 28 31 29 3a e7 20 77 69 | 64 3d 30 20 77 69 64 3d |(1):. wi|d=0 wid=|
|00002ff0| 31 3a f2 6d 6f 64 28 31 | 2c 22 31 22 29 0d 12 5c |1:.mod(1|,"1")..\|
|00003000| 1f 68 65 69 3d 73 63 61 | 6c 65 2a 68 65 69 3a 77 |.hei=sca|le*hei:w|
|00003010| 69 64 3d 73 63 61 6c 65 | 2a 77 69 64 0d 12 66 05 |id=scale|*wid..f.|
|00003020| cb 0d 12 70 1b 24 73 62 | 74 65 78 74 25 2b 3d 74 |...p.$sb|text%+=t|
|00003030| 79 70 65 24 28 73 68 61 | 70 65 25 29 0d 12 7a 05 |ype$(sha|pe%)..z.|
|00003040| e1 0d 12 84 0e dd f2 73 | 65 74 69 63 6f 6e 73 0d |.......s|eticons.|
|00003050| 12 8e 2b e3 20 69 25 3d | 31 b8 33 3a 24 74 65 78 |..+. i%=|1.3:$tex|
|00003060| 74 25 28 69 25 29 3d 74 | 69 74 6c 65 24 28 73 68 |t%(i%)=t|itle$(sh|
|00003070| 61 70 65 25 2c 69 25 29 | 3a ed 0d 12 98 28 e3 20 |ape%,i%)|:....(. |
|00003080| 69 25 3d 31 b8 33 3a 24 | 69 6e 64 25 28 69 25 29 |i%=1.3:$|ind%(i%)|
|00003090| 3d 76 61 72 24 28 73 68 | 61 70 65 25 2c 69 25 29 |=var$(sh|ape%,i%)|
|000030a0| 3a ed 0d 12 a2 1e e7 20 | 24 74 65 78 74 25 28 33 |:...... |$text%(3|
|000030b0| 29 3d 22 22 20 24 69 6e | 64 25 28 33 29 3d 22 22 |)="" $in|d%(3)=""|
|000030c0| 0d 12 ac 1b 21 42 25 3d | 6d 62 78 25 3a 42 25 21 |....!B%=|mbx%:B%!|
|000030d0| 38 3d 30 3a 42 25 21 31 | 32 3d 30 0d 12 b6 1b e3 |8=0:B%!1|2=0.....|
|000030e0| 69 25 3d 31 39 b8 32 34 | 3a f2 64 6f 6d 61 69 6e |i%=19.24|:.domain|
|000030f0| 28 69 25 29 3a ed 0d 12 | c0 20 e7 20 6f 70 65 6e |(i%):...|. . open|
|00003100| 25 20 f2 63 61 72 65 74 | 28 32 31 2c a9 24 69 6e |% .caret|(21,.$in|
|00003110| 64 25 28 31 29 29 0d 12 | ca 23 f2 73 68 61 64 65 |d%(1))..|.#.shade|
|00003120| 69 63 6f 6e 28 6d 62 78 | 25 2c 32 35 2c 24 69 6e |icon(mbx|%,25,$in|
|00003130| 64 25 28 33 29 3d 22 22 | 29 0d 12 d4 05 e1 0d 12 |d%(3)=""|).......|
|00003140| de 10 dd f2 64 6f 6d 61 | 69 6e 28 69 25 29 0d 12 |....doma|in(i%)..|
|00003150| e8 1b 21 42 25 3d 6d 62 | 78 25 3a 42 25 21 38 3d |..!B%=mb|x%:B%!8=|
|00003160| 30 3a 42 25 21 31 32 3d | 30 0d 12 f2 26 42 25 21 |0:B%!12=|0...&B%!|
|00003170| 34 3d 69 25 3a c8 99 20 | 22 57 69 6d 70 5f 53 65 |4=i%:.. |"Wimp_Se|
|00003180| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 42 25 0d |tIconSta|te",,B%.|
|00003190| 12 fc 05 e1 0d 13 06 10 | dd f2 6d 6f 64 28 69 25 |........|..mod(i%|
|000031a0| 2c 61 24 29 0d 13 10 23 | 76 61 72 24 28 73 68 61 |,a$)...#|var$(sha|
|000031b0| 70 65 25 2c 69 25 29 3d | 61 24 3a 24 69 6e 64 25 |pe%,i%)=|a$:$ind%|
|000031c0| 28 69 25 29 3d 61 24 0d | 13 1a 14 f2 64 6f 6d 61 |(i%)=a$.|....doma|
|000031d0| 69 6e 28 31 39 2b 32 2a | 69 25 29 0d 13 24 05 e1 |in(19+2*|i%)..$..|
|000031e0| 0d 13 2e 04 0d ff | |...... | |
+--------+-------------------------+-------------------------+--------+--------+
